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Editorial 





Notre environnement d'utilisateurs de l'informatique individuelle évolue chaque jour, comme nous avons 
pu le constater avec l’arrivée des SORD, IBM et autres SIRIUS... Cette remarque relève presque d’une 
platitude, tant nous savons notre domaine d'intérêt évolutif. Des changements structurels sont cependant en 
train de s’effectuer, qui vont beaucoup plus loin que la simple apparition de périphériques ou de logiciels 
nouveaux. En un mot, les constructeurs « classiques » pénètrent en force, et avec des moyens promotionnels 
extrêmement puissants le domaine de l'informatique individuelle, comme nous pouvons nous en convaincre 
avec les informations suivantes. 


Selon une étude publiée par Computer Business News en mars dernier, l'évolution prévisible pour les 
quelques années à venir est importante. En 1981, les parts de marché étaient les suivantes : TRS (28 %), 
Apple (25 %), Hewlett-Packard (11 %), Commodore (10 %), Xerox + DEC + IBM (10 %), autres (16 %). 
Selon les prévisions, les chiffres de 1985 seraient les suivants : TRS (15 %), Apple (12 %), H-P (14 %), 
Commodore (3 %), Xerox (17 %), DEC (11 %), IBM (23 %), autres (5 %). Ceci dit, étant donné l'expansion 
prévue pour ce marché, la baisse de 50 % de part de marché de TRS et Apple devrait en fait correspondre à 
une hausse confortable du chiffre d’affaires. Ainsi, les ventes d'Apple au premier trimestre 1982 ont été de 
131 millions de $ (66% de hausse sur 81), avec un bénéfice de 10 % du chiffre d’affaires. 


Nous aurons donc l’occasion de permettre aux utilisateurs de langue française d'échanger leur savoir-faire 
sur Apple pendant encore longtemps. Dans ce numéro, Michel Crimont termine sa série sur le programme de 
catalogue général en Pascal. Christian Colmant vous offre une revue des mémoires de masse. J.-F. Duvivier 
présente un tableau de référence complet des codes ASCII, afin de vous éviter d’avoir à feuilleter des sources 
multiples pour rechercher certains renseignements de base. Enfin, Dominique Compère, un lecteur de Pom's, 
propose des programmes en BASIC, largement commentés à l'attention des débutants, destinés à faciliter la 
création et l’utilisation de tables de formes, en graphique haute résolution. 


Toutes les félicitations de l'équipe de Pom'’s vont à Dominique Devernay, qui a réussi à résoudre notre 
problème-concours. Nous avons regroupé ses remarques et celles de l’auteur du problème, J.-F. Duvivier, 
dans un article explicatif. Nous vous apportons dans ce quatrième numéro de nombreuses informations de 
toutes sortes et une grande variété de programmes. À titre de compensation, les mordus de l’assembleur 
trouveront leur plaisir dans les articles de Gilles Mauffrey et Jacques Tran-Van. Nous faisons dans ce numéro 
l'expérience de réduire le texte, ce qui nous permet de vous proposer l'équivalent de 10 pages 
supplémentaires. 


Nous rappelons aux lecteurs qu’ils peuvent commander les disquettes de Pom's séparément, ainsi que les 
numéros antérieurs. Nous approchons cependant de la rupture de stock sur le numéro 1, dont plus de 2 000 
exemplaires ont été vendus avant la fin du mois d'avril. 


Hervé Thiriez 
Rédacteur en chef 


Directeur de la publication — rédacteur en chef : Hervé Thiriez — Siège social : Editions MEV -— 49, rue Lamartine — 78000 Versailles 
— Rédaction et abonnements : 59, bd de Glatigny — 78000 Versailles — Tél. (3) 918.13.07 — Régie publicitaire : Force 7 — 41, -rue de 
la Grange-aux-Belles — 75483 Paris Cedex 10 — Tél. (1) 238.66.10 — Diffusion auprès des boutiques informatiques et librairies : 
Editions du PSI — 41-51, rue Jacquard — B.P. 86 — Tél. (6) 007.59.31. 


Ont collaboré à ce numéro : Christian Colmant, Dominique Compère, Michel Crimont, Xavier Dalloz, Dominique Devernay, 
Jean-François Duvivier, Bruno Estrangin, Gilles Mauffrey, Jean-Louis Meillaud, Gérard Michel, Hervé Thiriez, Jacques Tran-Van — 
Conseillers techniques : Olivier Herz et Gérard Michel — Maquette : Jean Mourot — Dessins : Laurent Bidot et Jean Mourot. 
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Communiquez grâce au format DIF 





La tentation est grande, dès que l'on peut 
amener un gros ordinateur à communiquer avec 
un ordinateur individuel, de transférer des 
fichiers entre ces deux matériels, afin par 
exemple de profiter des nombreux programmes 
disponibles sur l'ordinateur individuel. 
Ainsi, n'est-il pas possible d'interroger un 
fichier géré par un gros ordinateur pour le 
traiter à l'aide d'un programme de calcul 
(Visicalc), de gestion de base de données (DB 
Master) ou d'édition de graphiques 
(Visiplot), à titre d'exemples ? 

EM fait, cela est plus facile qu'il n'y 
parait a priori. Il faut d'abord réussir à 
établir la communication de façon à pouvoir 
créer le fichier sur disquette. Ensuite, il 
suffit de mettre les données sous un format 


qui les rende accesibles à des programmes 
tels que ceux cités plus haut. Un format 
unique suffit pour atteindre cet objectif, le 


format DIF. 
1. Le transfert de l'ordinateur central vers 


l'Apple 


La solution à ce problème est spécifique de 
l'équipement jouant le rôle d'ordinateur 
central. 

Le cas simple est celui d'un ordinateur muni 


d'une interface RS 232. Du côté de l'Apple, 
la communication s'effectue au moyen d'une 
carte de communication. Un logiciel de 
communication comme VISITERM permet alors de 
saisir les données dans un fichier. 


Nous avons été confrontés à un autre cas, 
celui de la communication avec un ordinateur 
CII-HB 61 DPS. Ce matériel est prévu pour 
fonctionner seulement en relation avec des 
terminaux. I1 faut alors que l'Apple se 
comporte à son égard exactement comme un 
terminal. Nous avons pour cela ajouté à notre 
Apple une carte de communication spéciale 
fabriquée par SOFRIG. Deux courts programmes 
(un pour le 61 DPS et un pour l'Apple) 


permettent de créer un fichier séquentiel en 
caractères ASCII. 


2. Communiquer sans programmer avec Visicalc 
et DB Master 


La société Personal Software a défini un 
format de fichier séquentiel, dont le but est 
de servir de norme de communication entre des 
programmes différents. Sans aucune program- 
mation, des programmes utilisant le format 
DIF peuvent échanger des données à loisir. 

Ce format est appelé DIF, Data Interchange 
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Format; il est accepté par les programmes de 
Personal Software ainsi que par ceux de 
Stoneware, la société qui a produit le DB 
Master. La description détaillée des normes 
du format DIF se trouve dans les manuels de 
Visicalc et DB Master; nous y renvoyons le 
lecteur. Le programme que nous présentons 


s'inspire très largement du modèle 
de programme CREATING A DIF FILE. 

Pour traduire le fichier issu de 
l'ordinateur, nous le recopions préalablement 
dans un tableau chargé en mémoire centrale. 
Cette méthode ne convient qu'au transfert de 
petits fichiers. Dans le cas de fichiers 
importants, il faudra mettre dans le format 
DIF les enregistrements les uns après les 


autres. 
Le tableau obtenu 


en un fichier de 

comporte un chapeau 
structure du fichier, 
d'enregistrements (vectors) 
(tuples) par enregistrement. 


ci-dessous 


ainsi est ensuite traduit 
format DIF. Ce format 
(header) qui décrit la 

notamment le nombre 
et de rubriques 


Ensuite, chaque début d'enregistrement est 
signalé par "BOT" et, pour chaque rubrique 
d'un enregistrement: 

a) quand la rubrique est numérique, il faut 
un code "O0", suivi de la valeur numérique et 
de la lettre "V'; 

b) quand la rubrique est alphanumérique, on 
doit avoir un code "1", suivi de la valeur 


"0" et de la chaîne. 


3. Un aspect des relations entre ordinateur 
individuel et ordinateur central 


Les données recueillies sur un ordinateur 
individuel peuvent être manipulées à volonté 
sans mobiliser l'ordinateur central. Elles 
peuvent être traitées et/ou complétées 


‘localément “ puisque des logiciels tels que DB 


Master savent fusionner des données 
d'origines variées (en utilisant un logiciel 
complémentaire, le Utility Pack). 


Toutefois, la perspective la plus 
intéressante me parait être l'utilisation de 
l'ordinateur individuel pour la manipulation 
des données et la mise en forme de textes ou 


de graphiques, le stockage des données étant 
pris en charge par l'ordinateur principal. 


La grande diffusion des logiciels pour 
micro-ordinateurs les rend accessibles à un 
coût modéré. Ceci conduira à mon avis à un 
partage des tâches entre grosses et petites 
machines: l'ordinateur individuel servira à 
manipuler les données à l'échelon individuel, 
selon les besoins spécifiques d'un 
utilisateur. I1 devient ainsi le support 


d'une expression personnelle. 


Pom's n° 4 


+ ne un hs CS CE 














NDLR - Les utilisateurs de Visicale 16 120 INPUT "NE DE RUBRIQUES £"$RXx 
secteurs doivent consulter le numéro de leur 
version Visicalc, qui apparait lors du boot. 130 D$ = CHRK$ (4) 
Si celui-ci est "193B0", il faut essayer de 140 OP$ = D$ + "OPEN" + F$ 
la faire remplacer par une bonne version. En 150 RD$ = D$ + "READ" + F$ 
effet, il y a des bogues dans cette version, 160 CL$ = D$ + "CLOSE" + F$ 
dont le pire est que la sauvegarde d'un 170 DIM N$(NX,RX) 
fichier DIF à partir de Visicalc peut rendre 180 PRINT OF$: PRINT RD$ 
la disquette illisible; pour couronner le 190 FOR I = 1 TO NX 
tout, ce phénomène est aléatoire. Attention ! 200 FOR J = 1 TO RX 
210 INPUT N$S(I - 1,4J — 1) 
ILIST 220 NEXT J 
230 NEXT I 
10 REM :CETTE MAQUETTE 240 FRINT CL$ 
20 REM :TRADUIT UN FICHIER ASCII 250 
SEQUENTIEL 
REM :RECU FAR EX, D'UN 61 DPS 260 TRADUCTION DU TAEËELEAU 
270 EN UN NOUVEAU FICHIER 
REM 3EN UN FICHIER -DIF- 280 -LE FROGRAMME UTILISE 
REM :<DATA INTERCHANGE FORMAT 290 LE NOM DU FICHIER 
> 300 LE NB DE VECTEURS 
REM :<REGISTRED TRADE MARK: 310 (ENREGISTREMENTS) 
REM ?:<FERSONNAL SOFTWARE 320 LE NE DE TUPFLES 
REM 330 (RUERIQUES ) 
REM ?LE FROGRAMME COFIE LE FI 340 E LE TYPE DES DONNEES 
CHIER DANS UN TAEËELEAU 350 XTYPFE 0 = NUMERIQUE 
100 INPUT "NOM DU FICHIER À LIRE 360 xTYPE 1 = CHAINE 
| S="$FS 370 
110 INFUT "NE D’'ENREGISTREMENTS 
5 "S$SNX 





A TRAVERS LA PRESSE APPLE DECHAINEE 


La Pomme d'Or revient ce mois-ci à Henry 
| Roberts qui répond aux questions des lecteurs 
| de CALL-A.P.P.L.E. dans une rubrique inti- 
| tulée APPLE DOCTOR (numéro d'octobre 1981). 
Nous traduisons ... 


| Question : On ne parle que du Pascal un peu 
partout. De quoi s'agit-il et pourquoi tout 
cet interêt? Que peut-il faire que le BASIC 
ne peut pas? 


| Réponse : Le Pascal tire son nom d'un 
mathématicien Suisse, nommé Blais Pascal 
(sic) qui vivait il y a une centaine d'an- 
| nées. On n'a jamais pu me fournir la raison 
de ce choix, alors que Pascal est mort bien 
avant que le premier ordinateur ne soit 
construit! 


NE S'AGIT-IL PAS PLUTOT D'UN MOINE BELGE DE 
LA FIN DU MOYEN AGE QUI, LE PREMIER, A DIT 
SON CHAPELET SUR UNE MACHINE DE WOZNIAC! 
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380 
390 


400 
410 
420 
430 
440 
450 
460 


470 
480 
490 
500 
510 
320 


530 
540 


99 0 
560 
570 
580 


590 
600 
610 
620 


630 
640 
650 


660 
670 
680 


FRINT "NOM DU FICHIER DIF À 


CREER 3 
REM -LE PROGRAMME SAISIT LE 
NOM DU FICHIER 
INPUT F$ 
OF$ = D$ + "OFEN" + F$ 
RD$ = D$ + "READ" + F$ 
CL$ = D$ + "CLOSE" + F$ 
WT$ = D$ + "WRITE" + F$ 
PRINT OF$ 
REM -FUIS SAISIT LE NB D’ENR 
EGISTREMENTS 
REM DANS LA VARIABLE NV 
NV = NX 
REM -ET LE NE DE TUFLES 
REM DANS LA VARIABLE NT 
NT = R4 
REM -ET ECRIT LE <DIF HEADER 
GOSUE 800 


REM -PUIS SAISIT LE TYPE DE 
CHAQUE DONNEE 
DIM TYÆCNT) 


FOR I = 0 TO NT - 1 
FRINT "O=NUM  1=CHAINE" 
PRINT "LE TYPE DE LA RUEBRIQU 


E "$I + 1j" EST :" 
INPUT TY#4(I) 


NEXT I 

FOR I = 1 TO NV 

REM -ECRIT LE DEBUT D'UN TUF 
LE 

T= - 14 = 0%S$ = "BOT" 
GOSUE 910 

REM -RECHERCHE CHAQUE DONNEE 
FOR J = 1 TO NT 
T = TY4X(J — 1) 

IF T = 0 THEN V = VAL (N$(I 

= 1,9) — 122358, =, "VU" 


690 


700 
710 
720 
730 
740 


750 
760 
770 
780 


790 
800 


810 
820 


IF T = 1 THEN V = 055$ = 
Er d'- 17 


N$( 


REM -ET L’ECRIT 

GOSUB 910 

NEXT J 

NEXT I 

REM -PUIS ECRIT FIN DES DONN 
EES 

Tæ= - 1:V = 055$ = "EOD" 
GOSUE 910 

PRINT CL$ 


FRINT "FIN DE LA CREATION DU 
FICHIER DIF ";ÿF$ 

STOF 

REM -FROCEDURE D'’ECRITURE DU 
<DIF HEADER 

PRINT WT$ 

FRINT "TABLE": 

GOSUB 880 

PRINT "TUPLES": 

T: GOSUE 880 


PRINT "0,1": 


PRINT "0,"3N 


PRINT "VECTORS'"+ FRINT "0,"} 
NV: GOSUE 880 

PRINT "DATA": PRINT "0,0": 

GOSUE 880 

FRINT D$ 

RETURN 

REM -FROCEDURE D’ECRITURE DE 
"(CHAINE VIDE) 

PRINT CHR$ (34); CHR$ (34) 

RETURN 

REM -FROCEDURE D'’ECRITURE DE 

S DONNEES 

FRINT WT$ 

PRINT Ti","$;v 

FRINT S$ 

FRINT D$ 

RETURN 

END 
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Un programme 


de TRACE sélective 


Ce programme permet d'obtenir la trace 
sélective d'une série d'instructions d'un 
programme assembleur. Pour rendre ce 
programme aussi simple et aussi court que 
possible, les sous-routines moniteur et DOS 
ont été utilisées très souvent. Le corps du 
programme (la sous-routine STEP) est 
pratiquement identique à celui du moniteur de 
l'Apple II avec BASIC entier en ROM. Ce 
programme exige un Apple U8K; il est 
utilisable en mode moniteur ou en mode 
direct. 


Utilisation du programme 


Pour l'appel de ce 
CHAIN du DOS 


programme, la commande 
a été modifiée en une commande 


TRACE; cette commande, pour ne pas être 
confondue avec la ‘commande BASIC, doit être 
suivie du nom du programme à tracer et 
éventuellement du numéro du drive, de 


l'adresse de départ du trace et de l'adresse 
finale du trace. La syntaxe est la suivante 
TRACE nomprogramme(, Dx, Rad, Baf ) 

chacune des informations entre paranthèses 
étant facultative. Si le numéro de drive est 


absent, le drive précédemment utilisé sera 
oris par défaut. Si l'adresse de départ du 
trace est omise, l'adresse de début de 
Programme sera prise par défaut. Et enfin, si 
l'adresse de fin de trace est omise, 
l'adresse de fin de programme sera prise par 
défaut. Ces données numériques peuvent être 
données sous forme décimale ou hexadécimale; 
dans ce dernier cas, elles doivent être 


précédées du signe #$. 
Les modifications du DOS et le chargement du 
programme de TRACE sont faites par le 
programme PRTR. Quand vous en avez terminé 
avec le programme TRACE, je vous conseille de 
rebooter le DOS, car certains paramètres 
auront été modifiés, et la commande CHAIN 
supprimée. 


Analyse du programme 


Quand on tape "TRACE nomprogramme, R$ad, B$af "'; 
nomprogramme est mis en adresse AA75 et 
suivantes, ad en AA6E et AA6F, af en AAT7O et 
AA71. Les premières instructions sauvent les 
registres et chargent le programme en mémoire 
centrale, par appel aux sous-routines 
moniteur SAVE (FFHA) et DOS BLOAD (A35D). 


L'adresse de fin de 
calculée, et 


programme est alors 
les adresses de début et fin de 





verifiées, si elles ont été 
initialisées dans le cas 


soit 
soit 


trace sont 
fournies, 
contraire. 


Le programme de trace proprement dit débute 
alors. Si une instruction doit être tracée, 
elle est tout d'abord désassemblée à l'aide 
de la sous-routine moniteur INSDSP (F8D0), 
sinon seule la longueur de l'instruction est 
calculée par la sous-routine INSDS2 (F88C); 
cette longueur est conservée à l'adresse 2F 
par le moniteur. Ensuite, les instructions à 
exécuter, c'est-à-dire les instructions qui 
ne correspondent pas à des sauts, des 
branchements ou des retours, sont exécutées 
après restauration des registres grâce à la 
sous-routine RESTORE (FF3F), et les 
différents registres sont édités par REGDSP 
(FAD7). Le programme donne de plus la 
décomposition du registre d'état pour que 
l'utilisateur puisse suivre plus facilement 
le déroulement du programme. 


Les instructions de saut et de retour donnent 


simplement lieu à un calcul de l'adresse de 
l'instruction suivante. Les instructions de 
branchement sont transformées pour se 
brancher soit sur BREL si le test est 
positif, soit sur NBREL dans le cas 
contraire. Dans tous les cas, l'adresse de la 
prochaine instruction à exécuter est alors 
calculée, à l'aide des différentes 
sous-routines moniteur PCADJ, une fois les 


registres conservés. 


suspendre à tout moment 
programme en appuyant sur la 
Pour interrompre définitivement 
il faut taper CONTROL-C. 


Il est possible de 
l'exécution du 
touche ESC. 
le programme, 


Limites du programme 


Comme l'utilisation des sous-routines 
moniteur SAVE et RESTORE modifie les adresses 
48-49, cela interdit de tracer des programmes 


faisant appel au DOS, qui les utilise. 


D'autre part, on ne peut tracer que des 
instructions du programme lui-même et non des 
instructions en ROM par exemple. Nous 
laissons le soin au lecteur de modifier le 
programme pour éliminer la première 
limitation. Quant à la seconde, dans certains 
cas, elle ne peut être éliminée. Pour s'en 


persuader, le lecteur pourra regarder ce qui 
se passe quand on veut tracer la sous-routine 
de sortie écran COUT ... 
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10 HOME : FRINT "LA COMMANDE CHA 

IN DU DOS EST CHANGEE EN"? PRINT 

" UNE NOUVELLE COMMANDE TRAC 

E"? PRINT | 
20 PRINT "ELOAD E,TR"t CALL 2159 


SOURCE FILE: TRACE 


0083: 1 CONTRC EQU $83 x CONTROL-C 

009E: 2 ESC EQU $9E x ESCAFE 

03EA: 3 RECON EQU  $3EA 

FF 4À? 4 SAVE EQU #$%FF4À X SAUVEGARDE DES REGISTRES 
FF3F $ 5 RESTORE EQU $FF3F xX RESTAURATION DES REGISTRES ' 
F8D0 6 INSTDSF EQU  $F8D0 X DESASSEMELE 1 INSTRUCTION 
0020: 7 RTNL EQU $2C 

002D: 8 RTNH EQU  $2D | 
002F: 9 LENGTH EQU $2F x LONGUEUR DE L'’INSTRUCTION 
0048: 10 STATUS EQU #48 

0034: AL PEL EQU  $34 x COMFTEUR DE FKOGRAMME 
003E:; 12 FCH EQU #3E x À TRACER 

AA72: 13 DFG EQU $AA72 

AA 6 D à 14 LFG EQU  $AA6GDO 

AAGE 15 DTK EQU  $AÂAGE x DEBUT DE TRACE 

AA70: 16 FTK EQU $AA70 x FIN DE TRACE 

FCA8: 17 DELAY EQU  $FCAB x ROUTINES 

F948: 18 FRELNK EQU $F948 x CLASSIQUES 

FDED 19 COUT EQU  $FDED x VOIR REF, 

FD8E : 20 CROUT EQU  $FD8E x MANUAL 

C000: 21 KED EQU #$C000 

C010: 22 KEDSTRE EQU $C010 

FF69: 23 MON EQU $FF69 *x RETOUR AU MONITEUR 

F88C: 24 INSDS2 EQU $F88C 

F882: 25 INSDS1 EQGU $F882 

FAD7 26 REGDSF EQU $#FAD7 x IMPRESSION 

FADA: 27 REGDSF1 EQU $FADA x DES REGISTRES 

F954: 28 FCADJ2 EQU $F954 *x CALCUL D’ADRESSES 

F956 29 FCADJ3 EQU $F956 *x DU FROGRAMME 

FC58 + 30 HOME EQU $FC58 

A3 SD ? 31 DLOAD EQU #A35D x ADRESSE SS-ROUTINE ELOAD 
AASF à 32 CDOF EQU  $AASF x ADRESSE CODE INST, DOS 
0032: 33 CLOAD EQU #32 x 2xCODE DOS ELOAD 

NOT: 1 NEXT OEJECT FILE NAME IS TRACE ,0EJ0 

9400: 34 ORG #$9400 

940020 44 FF 35 JSK SAVE 

9403520 58 FC 36 JSR HOME 

9406:A9 32 37 LDA  £CLOAD 

9408:8D SF AA 38 STA CDOF 

940E:20 SD A3 39 JSK  DLOAD X CHARGEMENT DU FROGRAMME ? 
940E AD 60 AA 40 LDA LPFG x CALCUL 

9411:18 41 CLC x DE 

9412:6D 72 AA 42 ADC  DFG x L'’ADRESSE N 
9415:8D D9 95 43 STA FFI x DE 

9418:AD 61 AA 44 LDA LFG+1 x FIN 

941E56D 73 AA 45 ADC DFG+1 x DU 

941E:8D DA 95 46 STA FFI+1 X FROGRÂAMME 

94215AD 73 AA 47 LDA DFG+1 x VERIFICATION 

9424:CD 6F AA 48 CMF. DTR+1 x DES ADRESSES 

9427:90 16 49 ECC  ADFIO x DE DEBUT ET 

9429:F0 09 50 EER SUIVER x FIN DE TRACE 

942E:8D 6F AÂ 1 STA DTR+1 x ET VALEURS 
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942E AD 72 AA 92 LDA DFG x FAR DEFAUT 
| 9431:4C 3C 94 593 JMF MOD2 x EVENTUELLES 
| 9434AD 72 AA 94 SUIVER LDA DFG x DE 47 À 72 
| 9437:CD 6E AA 99 CMF  DTR 
| 9434590 03 56 ECC  ADFIO 
| 943C:8D 6E AA 57 MOD2 STA DTR 
949F14C 51 94 58 ADFID0 JUMP  VERFIN 
94423AD DA 95 99 DEF2 LDA FFI+1 
9445:8D 71 AA 60 STA FTR+1 
9448:AD D9 95 61 LDA FFI 
944E:8D 70 AA 62 STA FTR 
944E:4C 67 94 63 JMF  TRO 
9451$AD 71 AA 64 VERFIN LDA FTR+1 
9454:F0 EC 65 EEQ DEF2 
9456:CD DA 95 66 CMF  FFI+1 
9459:90 04 67 ECC SUIFIN 
1 945E:F0 02 68 EEQ SUIFIN 
| 945D:E0 E3 69 ECS DEF2 
| 945F AD 70 AA 70 SUIFIN LDA FTR 
| 9462:CD D9 95 71 CMP FFT 
| 9465:E0 DE 72 ECS DEF2 
9467 AD 72 AA 73 TRO LDA DFG 
946A:85 3A 74 STA FCL 
946C:AD 73 AA 75 LDA DFG+1 X INITIALISATION DU FROGRAMME 
946F:85 3B 76 STA FCH 
9471320 94 94 77 TRACE JSK HAITI 
9474:20 Eé 94 78 JSK  SITR 
9477:E0 09 79 ECS FREEX 
9479:20 68F 94 80 JSR  MHAIT 
947C:20 DO F8 81 JSR  INSTDSF 
947F:4C 89 94 82 UJUMF EXEC 
9482:A2 00 83 FREEX LDX £00 
9484;A1 3A 84 LDA (FCL,X) 
9486:20 8C F8 85 JSK  INSDS2 
9489:20 Eé 94 86 EXEC USR STEF 
948C:4C 71 94 87 JMF TRACE 
948F 88 xx SOUS FROGRAMME DE SAISIE CLAVIER ET DELAY 
948F A9 CB 89 MHAIT LDA £203 
9491520 A8 FC 90 JSK DELAY 
9494:2C 00 CO 91 WAITI EIT KED 
| 9497:10 1C 92 EFL  MWRTS 
| 9499:AD 00 CO 93 LDA  KED 
949C:C9 9E 94 CMF  £ESC 
949E:D0 08 95 ENE  WRTS0 
9440520 10 CO 96 EIT KEDSTRE 
9443:2C 00 C0 97 W2 EIT KED 
9446:10 FE 98 EPL W2 
{ 94A8:AD 00 C0 99 WRTS0 LDA KED 
944E:2C 10 CO 100 EIT KEDSTRE 
| 94AE:C9 83 101 CMF.  £CONTRC 
| 94B0:D0 03 102 ENE  WRTS 
2482544 2F°953: 103 JMF SORTIE 
94E5:60 104 WRTS RTS 
94B6: 105 xx SOUS FROGRAMME VERIFICATION À TRACER OÙ NON 
74B6:AS5 3B 106 SITR LDA FCH 
94B8:CD 6F AA 107 CMF  DTR+1 
94690 22 108 ECC NON 
94BD:D0 07 109 BNE SITR2 
94BF AS 3A 110 LDA FCL 
94C1$CD 6E AA 111 CMF. DTK 


94C4:90 19 112 BCC NON 
94Cé6:AS 38 113 SITR2Z  LDA FCH 
94C8:CD 71 AA 114 CMP FTR+1 
94CE:90 08 115 ECC OUI 
94CD:D0 10 116 BNE NON 
94CF:AS 3A 117 LDA FCL | 
94D1:CD 70 AA 118 CMP FTR | 
94D4:90 02 119 ECC OUI | 
94D6:D0 07 120 BNE NON 
94D8:18 121 OUI CLC 
94D9:A9 00 122 LDA £00 
94DE:8D CF 95 123 STA INDIC 
94DE : 60 124 RTS | 
94DF :38 125 NON SEC 
94E0:A9 01 126 LDA £01 
94E2:8D CF 95 127 STA INDIC 
94E5:60 128 RTS | 
94E6: 129 xx ANALYSE ET EXECUTION DE L’INSTRUCTION | 
94E6:68 130 STEF  FLA x NOUS REFRENONS 
94E7:85 2C 131 STA RTNL x ICI LE STEF 
94E9:68 132 FLA x DU MONITEUR 
94EA:85 2D 133 STA  RTNH x DE L'AFPLE II 
94EC:A9 EA 134 LDA £$EA x BASIC INTEGER 
94EE:80 Cé 95 135 STA  INSTR x SANS AUTOSTART 
94F1:8D C7 95 136 STA  INSTR+1 
94F4:8D C8 95 137 STA  INSTR+Z 
94F7:A2 00 138 LDX £00 
94F9$A1 3 139 LDA (FCL;,X) IBLOAD CHARGE ,0BJ,A4#9000 
94FE:F0 2C 140 BER BREAK FRA L 
94FD:A4 2F 141 LDY LENGTH 
94FF:C9 20 142 CMF  £$20 
9501:F0 50 143 BEQ JSF Wet: 
9503:C9 60 144 CMF  £$60 9000- A9 00 8D F6 03 A9 98 BD 
9505:F0 3C 145 BEQ RETOUR DA GUR ONE me AUS + 
9507:C9 4C 146 CHF £$4C 9010-00 F7 BD 25 91 90 00 9 | 
9509:F0 53 147 BEQ JUMP - € A9 9A 8D 01 90 | 
950B:C9 6C 148 CHF £$60C 5690. AS 1 00 AD AR 20107 00 | 
950D:F0 50 149 BEQ  INJUMF 9920- C9 22 DO 28 A9 06 85 Ci | 
950F:C9 40 150 CHF £$40 9046 C9 22 FO 6€ 09 80 79 73 | 
9511:F0 2C 151 BEQ XRTI PS6 MA CB Co 1€ pa EF 60 34 | 
951329 1F 152 AND £$1F A9 EF 05 C1 20 81 00 Co 
9515149 14 153 EOR £#$14 mé 8 48 2 7 À vtt | 
9517:C9 04 154 CMF  £$04 à 20 FS 9C 4C 12 
9519:F0 02 155 BEQ RELAT 9088 €3 OF 83 LE 89 17 A6 00 
951B:B1 34 156 ECIN  LDA (FCL),Y 9088- 81 E DO 05 A2 0B AC 0 
951D:99 Cé 95 157 RELAT  STA INSTR,Y pi le DIR 
hein 1 . PA EN EE 
9521110 F8 159 EPFL  ECIN ï 
952320 3F FF 160 USR RESTORE NES. FE 60 80 AA 20 FS FC 20 
9526:4C Cé 95 161 UMP INSTR 90C0- 87 00 FO 12 20 BE DE 20 
9529120 82 F8 162 EREAK  JSR INSDS1 be AA 
952C:20 DA FA 163 USR REGDSP1 9008-80 FA 87 7 10 80 ED 87 | 
952F:20 EA 03 164 SORTIE UJSR RECON é 
9532:A9 00 165 LDA £00 me a cs sc AE A4 AD AE AA 
9534:A2 03 166 LDX £03 8- 3 A8 BD AE AA C9 
9536:9D 6E AA 167 SORO STA DTR,X ANR AS en Ter | 
9539tCA 168 DEX 9110- E8 E0 1E D0 F0 B9 9C 83 
9534:10 FA 169 EPL  SORO 
953C:4C 69 FF 170 JMF MON 
953F:18 171 XRTI CLC 
9540168 172 FLA L 
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9541:85 48 173 STA STATUS 








9543168 174 RETOUR PLA 

9544:85 3A 175 STA FCL 

9546168 176 PLA 

9547:85 38 177 FCINC2 STA FCH 

95491A5 2F 178 PCINC3 LDA LENGTH 

9548:20 56 F9 179 USR  FCADJ3 P38- 29 04 00 04 az 0D D0 15 

954E:84 3B 180 STY FCH : 

955018 181 CLC ETS 87 0e dé fa dé SE SC A4 

9551190 14 182 ECC NEHPFCL #20 93 FE 4C DS 

9553:18 183 JSF CLC 9148 0C AS 2€ A4 1F 20 LE 96 

9554120 54 F9 184 JSR FCADUZ 9150- AD AF AA FO 03 20 EA 9C 

9557 ! AA 185 TAX 9189 2€ 06 AA 20 00 48 00 00 
| 50 8D 

ges 196 ta MONNMERSNE 

9559 :48 187 FHA F 

SSRIeR 166 TA HOSRET NA 

955E +: 48 189 FHA B4 8D AB AA 

955C1A0 02 190 LDY £$02 106. 10 1en 89 rateR ES dater 

955E:18 191 JUMF Ce 91A0- AE AE AA EE F1 87 Eé6 1F 

955F:E1 34 192 INJUMF LDA (FCL),Y 0 On AT DR EN TE ART EN on 

pSelian 195 Tax LASER E 

956288 194 DEY 

9563:E1 3A 195 LDA (FCL),Y rte qi heat 

9565186 36 196 STX FCH 91D8- Eé 1F 20 Eé 9C AD EC B3 

9567185 3A 197 NEWFCL STA FCL DSTI EN OS Et IR Ie 28 

9569160 F3 198 ECS JUMP MFU- BD ED 67 6€ RE aa #9 07 

956B:A5 2D 199 LDA  RTNH à 

956D : 48 200 FHA Ah. De Si 10i En e8 (08 BC Fe 

956E:A5 2C 201 LDA  RTNL 9210- 60 A0 89 DO 02 A0 64 a 

957 0 : 48 202 PHA 9220- AD AC AA 85 1E AD AD AA 

95371:AD CF 95 203 LDA  INDIC 9228- 85 1F 60 

9574tD0 06 204 ENE FPASEC 

9576:20 D7 FA 205 JSR REGDSF 

9579120 7D 95 206 JSR  ECRFIN 

957Ct60 207 PASEC RTS 

957D! 208 xx SOUS PROGRAMME ECITURE COMFLEMENTAIRE 

957D:20 8E FD 209 ECRFIN JSR CROUT 

9580145 48 210 LDA STATUS 

9582:8D DO 95 211 STA  TAMFON 

9585:A0 08 212 LDY £$08 

9587:E9 DO 95 213 F00 LDA TAEB-1,Y x ECRITURE 

958A:C9 AD 214 CHF £’- 

958C:D0 06 215 BNE F01 

958E:4E DO 95 216 LSR TAMPON x DETAILLEE 

9591:4C AE 95 217 JMF  LOOF 

9594:20 ED FD 218 FO1 JSR COUT x DES 

9597:A9 ED 219 LDA £'= 

9599:20 ED FD 220 JSR COUT 

959C:4E DO 95 221 LSR TAMFON x REGISTRES 

959F:90 05 222 ECC F0 | 

954149 Et 223 LDA £’1 

9543:4C AB 95 224 UMP VAL 

95A6:A9 B0 225 F0 LDA £’0 

95A8:20 ED FD 226 VAL JSR COUT 

95AË:20 48 F9 227 USR FRELNK 

9SAE : 88 228 LOOF  DEY 

954F:D0 Dé 229 BNE F00 

95B1 +60 230 RTS 

95B2:18 231 BREL  CLC x BRANCHEMENT 

95E3#A0 01 232 LDY £$01 x RELATIF 

95B5:E1 34 233 LDA (FPCL),Y 
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95E7:20 56 F9 234 JSR FCADJ3%x CALCUL DE LA NOUVELLE ADRESSE 
95E6A:85 3A 235 STA FCL 

95EC:98 236 TYA 

95ED :38 237 SEC 

95BE:B0 87 238 ECS FCINC2Z 

95C0:20 44 FF 239 NEREL JSR SAVE x FAS DE FROBLEME | 
95C3:38 240 SEC x SAUVEGARDE LES REGISTRES | 
95C4:E0 83 241 ECS FCINC3 x ET CALCULE LA PROCHAINE ADRESSE 
95Cé:EA 242 INSTR NOF x FLACE 

9507 :EÀ 243 NOF x DE L'’INSTRUCTION 

95C8:EAÀ 244 NOF x À TRACER 

95C9:4C C0 95 245 JMF NEREL | 
pSsCC:40_B2.95 ..246 JMF  EREL | 
95CF:00 247 INDIC DFE 00 

95D0:00 248 TAMFON DFE 00 | 
95D1:CE Dé AD 249 TAE ASC ’NV-EDIZC 


95D4:C2 C4 C9 t 
95D7:DA C3 








9509:00 00 250 FFI DFE 00,00 
xxx SUCCESSFUL ASSEMELY! NO ERRORS 
SOURCE FILE! MAJDOS 

0073! 1 HIMEM  EQU $73 
9400: 2 DEEUT  EQU $9400 
9026! 3 AFTR EQU $9D26 
4893: 4 LAEE EQU +$A893 
4968! 5 FH EQU $A968 
A96C! 6 EH EQU $A96C 
ali! 7 FARTR  EQU  $A911 
mm me NEXT OBJECT FILE NAME IS MAJDOS.0EJ0 | 
086F ! 8 ORG $86F 
086F:A9 00 9 LDA +>DEEUT 
0871185 73 10 STA HIMEM 
0873:A9 94 11 LDA +<DEEUT 
0875285 74 12 STA HIMEM+1 
0877:38 13 SEC 

18781A5 73 14 LDA HIMEM 
087A:E9 01 15 SEC #01 
087C:8D 26 9D 16 STA AFTR 
087F:A5 74 17 LDA HIMEM+1 
0881:1E9 00 18 SEC +00 
01883:8D 27 9D 19 STA AFTR+1 
0886:A2 04 20 LDX #04 
0888:BD A4 08 21 LOOF LDA TRAC,X 
088B:9D 93 AB 22 STA LABE,X 
088E: CA 23 DEX 

088F:10 F7 24 EPL LOOF ? 
0891:A9 FF 25 LDA +#$FF 
01893:8D 68 A9 26 STA RH 
0896:8D 6C A9 27 STA EH | 
0899:A9 A0 28 LDA +$A0 
089E:8D 11 A9 29 STA PARTR 
089E:A9 76 30 LDA #$76 
08A0:8D 12 A9 31 STA FPARTR+1 
01843: 60 32 RTS 


0844:54 52 41 33 TRAC DCI ‘TRACE 
1847:43 CS 


xxx SUCCESSFUL ASSEMELY: NO ERRKORS 
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Un Apple à la clinique 














1. Description générale 





Pom's a rendu visite au professeur David 
Lewin, qui avait été désigné en 1968 par le 
congrès des gynécologues de langue française 


pour voir comment on pouvait utiliser un 
ordinateur dans la gestion de dossiers 
médicaux en obstétrique et gynécologie. Le 
professeur Lewin a eu la gentillesse de nous 
expliquer comment il s'y était pris, et 
pourquoi il utilise maintenant un Apple à cet 
effet. 


Le problème essentiel soulevé par la gestion 
informatique de dossiers médicaux est que 
ceux-ci comportent potentiellement une grande 
masse et une grande variété d'informations. 
En outre, pour tout simplifier, ces 
informations sont de types et de qualité très 
diverses (par exemple, comment mémorise-t-on 
une radio ?). Vouloir mémoriser la totalité 
des informations relatives à un patient est 
très difficilement envisageable, d'autant 
qu'un dossier s'enrichit en permanence de 
données chronologiques. En outre, certaines 
données sont très longues, par exemple un 
électro-cardiogramme-de 24 heures ! 


Il faut done choisir de mémoriser une 
quantité limitée d'informations, sinon il 
faudrait compter en méga-octets par patient. 


2. L'obstétrique 


Dans une première étape, le professeur Lewin 
choisit de s'attaquer au seul problème de 
l'obstétrique. L'avantage, dans ce cas 
particulier, est que l'horizon est limité à 
une durée inférieure à une année iln'y a 
donc pas cumul permanent pour chaque 
patiente. Un autre avantage de l'obstétrique 
est qu'il existait depuis déjà fort longtemps 
une fiche de renseignements quantitatifs qui 


était remplie habituellement de façon 
manuelle. Il a donc suffi d'analyser cette 
fiche en détail, et de concevoir la meilleure 
façon de la formaliser pour obtenir le dessin 


de l'enregistrement à prévoir 


patiente. 


pour chaque 


Le premier programme fut écrit en Fortran sur 
un CII 10070; il tournait en 5 heures un 
quart, et comportait 5.500 instructions. Dès 


la fin de la première année, il fallut en 
réécrire une bonne partie à cause d'un 
changement de système d'exploitation ! Le 
programme, qui marchait parfaitement 


antérieurement, se mettait à éclater avec un 
fatidique JOB ABORTED particulièrement gênant 
dans ce type d'application ... 


Une seconde version vit le jour en Cobol sur 
un IRIS80, suivie par une troisième version 
en GAP2 sur IBM32. Le professeur Lewin 
s'était mis à la programmation et a réalisé 
ces deux dernières versions, la première avec 
les conseils d'Alain Berdugo. Désirant avoir 


un matériel sous la main, il se mit à 
l'Apple, et écrivit la dernière version en 
Basic et langage machine (sans assembleur, 


s'il vous plaît). 


Le programme tourne maintenant parfaitement 
et parvient à enregistrer sur une disquette 
en DOS 3.3 jusqu'à 1000 dossiers, ce qui est 


une performance. En effet, un dossier 
comporte le nom et les coordonnées de la 
patiente, plus 150 informations. Or, la 


disquette 16 secteurs ne dispose même pas de 
150 octets par patiente, si l'on désire en 
gérer 1000 ! Ceci est devenu possible par une 
recodification complète des informations. 


d'autres obstétriciens sont 
maintenant équipés de ce système clés-en-main 
grâce au professeur Lewin. Le programme 
permet la saisie, l'archivage, la recherche, 
la mise à jour et certaines analyses 
statistiques. 


Une dizaine 


Depuis 1969, les fiches d'inscription 
manuelles sont toutes regroupées et 
incorporées dans une base de données qui est 


en fait la plus importante base de données en 
obstétrique du monde, avec 600.000 dossiers. 
Pour le moment, les analyses effectuées sur 
cette base de données ne sont pas encore 
réalisées sur matériel Apple! Par contre, les 
fiches provenant des praticiens déjà équipés 
par le professeur Lewin sont regroupées en 
plus dans un fichier particulier, dont on 
sait qu'il est encore plus fiable, puisque le 


programme de saisie réalise un certain nombre 
de tests et filtre les données. Ce 
sous-fichier pourra être traité et analysé 


avec un Apple équipé d'un disque. 


3- La gynécologie 


La gynécologie représente un problème de 


toute autre nature, car il faut alors, comme 
en médecine classique, garder le dossier 
d'une patiente de façon permanente. En outre, 


l'obstétrique, les 
intéressantes ne sont pas en 
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dominance des informations quantitatives il 
y a de nombreuses données qualitatives que 
l'on ne peut se permettre d'ignorer. 

La question qui se posait alors était donc la 
suivante : faut-il mettre en place un fichier 
mixte avec des composantes fermées (structure 
fixe) et ouvertes (possibilité de texte 
libre) ? Faut-il définir comme dans le 
premier cas un fichier fermé, ou au contraire 
définir un fichier ouvert ? Dans tous les cas 
rencontrés par le professeur Lewin, en 
matière d'informatisation de dossiers 
médicaux, les fichiers de structure mixte ont 
abouti à des échecs. Un fichier ouvert a par 
conséquent été défini, avec pour seule partie 
fermée la partie signalétique, dont on peut 
en effet difficilement se passer. 


Le programme résultant est donc une sorte de 
base de données, dans laquelle l'utilisateur 
définit ses propres rubriques. À l'intérieur 
de chacune d'entre elles, il peut utiliser 


des mots-clés qu'il définit lui-même, avec un 
glossaire de 1000 mots au maximum. Le 
programme se charge de la recherche des 
dossiers dans lesquels se trouvent des 
conjonctions données de mots-clés, ou des 
mots-clés donnés. A part cela, toutes les 
fonctions habituelles d'une gestion de 
fichier sont disponibles. Sur le même 
principe, un programme de gestion 
bibliographique a d'ailleurs été conçu, comme 


SP SE RE CRE 


variante du programme de gestion de dossiers 
en gynécolœæie. 


4, Conclusion 


Outre les aspects de gestion de dossier, les 
deux programmes peuvent apporter en temps 
réel une aide clinique importante. On peut 
grâce à eux interroger le système quand un 
problème délicat se pose, et faire des 
recherches sur les relations entre diverses 
données physiques et de santé, entre des 
problèmes, leurs traitements et les résultats 
statistiques, ... 


est intéressant dans 
cette expérience, c'est que l'on ait pu 
arriver à effectuer un certain nombre de 
travaux sur un petit matériel, après l'avoir 
fait sur un matériel beaucoup plus puissant. 
C'est le contraire de l'approche courante, 
dans laquelle on a tendance à avoir besoin 
d'un matériel toujours plus puissant. En 
outre, on constate que le professeur Lewin a 
dû se mettre à tout programmer pour pouvoir 
être satisfait du programmeur. Heureusement 
pour les SSCI que ce n'est pas le cas le plus 
fréquent ! 


En conclusion, ce qui 


Enfin, il faut noter que l'approche fichier 
ouvert est utilisable non seulement dans le 
domaine gynécologique, mais / dans l'ensemble 
de la profession médicale, et même au-delà. 


e opportunité d'utilisation de l'outil micro-informatique 
e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l’entreprise 


e formation à l’utilisation de la micro-informatique 


e réalisation de programmes à la demande 


e livraison de systèmes clés en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 


Nous sommes gestionnaires avant d'être informaticiens. L'informatique doit s'adapter à l'homme, et non l'inverse 
L'outil micro-informatique répond particulièrement bien à ce souci de qualité et d'efficacité du travail, 
dans des conditions conviviales. 
Nombreuses références en informatique traditionnelle - divers matériels - et en informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels. 


lo + | MO :.4 Centre La Châtaigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tél. 
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Les mémoires de masse 


micro-ordinateur, le problème de la 
stockage se pose toujours tôt ou 
tard, pour une multitude de raisons 
nécessité de placer un grand nombre de 
programmes sur support magnétique, ou de 
mémoriser des fichiers de grande taille. 


Les utilisateurs d'Apple se sont vite rendu 
compte qu'un espace de 140K octets, sur une 
disquette 54 pouces, était vite saturé; 
heureusement, il existe plusieurs façons de 
pallier cette limitation. La moins onéreuse 
est bien entendu de manipuler tel un jongleur 
des disquettes 5k pouces sur un drive unique. 
On investit rapidement dans un second lecteur 
; qui autorise un doublement de la capacité 
en ligne et, surtout, facilite grandement les 
copies de disquettes. Au-delà, on passe aux 
mémoires de masse qui sont en général des 
disques de plus grande capacité. Nous vous 
présentons dans cet article les principales 
mémoires de masse disponibles sur le marché 
pour Apple ou équivalents Silex et ITT 2020. 
Notre objectif est ici de présenter les 
principaux supports de stockage éprouvés sur 
le marché français, plutôt que de réaliser un 
dossier complet sur l'ensemble des mémoires 
de masse compatibles avec un Apple. 

On distingue habituellement deux types de 
supports magnétiques de masse : d'un côté les 
disques souples (floppies) de grande 
capacité, de l'autre les disques durs. 
AMnalysons les principaux avantages et 
inconvénients de chaque soiution. 


Le disque souple (floppy) 


le lecteur de disques souples 
de 5% pouces a l'avantage douteux d'être le 
plus cher par K-octet, avec ses 140K en 
simple face, simple densité. En compensation, 
c'est, après la cassette dont nous ne parlons 
même pas tant son utilité est réduite, le 
matériel de lecture/écriture de mémoire de 
masse (si l'on peut dire) dont le coût fixe 
est le plus bas. 

Les lecteurs de disques souples 8 pouces, du 
fait de leur diamètre plus important, 
acceptent une capacité de stockage plus 
grande, allant de 256K octets à 1M octet (1 
méga-octet=1.000K), selon qu'il s'æit de 
lecteurs simple ou double face, et selon la 
densité d'enregistrement. Bien que d'un coût 
relativement élevé, ce type de lecteur offre 
un compromis valable entre l'investissement 
et la capacité de stockage. De plus, du fait 
de leur antériorité sur le marché 
professionnel, les disques souples 8 pouces 
sont un standard portable des matériels 


Sur tout 
capacité de 


Pour commencer, 





normalisés (norme IBM 3740); 
possible, en utilisant cette 
transferts de fichiers 
d'un ordinateur d'une marque donnéée à un 
ordinateur d'une autre marque. La société 
française Léanord a d'ailleurs pris une place 
prépondérante, avec la gamme des SILDISC, sur 
le marché des disques souples 8 pouces pour 
Apple. L'inconvénient majeur de ces lecteurs 
réside dans leur coût, qui les réserve à une 
clientèle professionnelle. 

Depuis peu, des lecteurs de disques souples 
5è pouces de grande capacité sont proposés 
par IEF, une autre société française. Chacun 
de ces disques, travaillant en double face et 
grande densité, peut stocker 1M octets. Le 
contrôleur IEF supporte deux lecteurs, comme 
le contrôleur Apple, et permet donc de 
disposer de 2M octets en ligne. Ce lecteur 
représente aujourd'hui le meilleur rapport 
investissement /capacité, quel que soit le 
système d'exploitation (SED) utilisé. Il 
exige cependant, et c'est compréhensible, 
l'emploi de disquettes spécialement 
contrôlées. 

EM conclusion, les disques 
l'avantage de l'interchangeabilité et de la 
transportabilité, en compensation de leur 
capacité réduite par rapport à celle des 
disques durs. 


Les disques durs (hard disks) 


De conception totalement différente, les 
disques durs ont une très grande capacité de 
stockage, allant jusqu'aux 380M octets 
obtenus chez Micromos avec plusieurs disques 
durs de type Cynthia (fabrication Honeywell). 
Un disque dur représente un investissement 
élevé, mais possède le coût par K-octet le 
plus bas de tous les supports magnétiques. 

Le premier disque dur disponible sur le 


professionnels 
it devient 
norme, d'opérer des 


souples offrent 


marché Apple fut le célèbre Corvus, de 10M 
octets, distribué en France par Microlœæie. 
I1 est partagé en plusieurs volumes 
représentant chacun un équivalent-disquette 


de 140K sous DOS. Par contre, sous Pascal, il 
est capable de gérer des fichiers de toutes 


capacités. Dans sa gamme, Corvus propose 
aujourd'hui des disques durs de 5, 10 et 20M 
octets. 


Les utilisateurs d'un tel disque, scellé sous 
vide dans sa boîte, ont tout de suite saisi 
le risque encouru en cas de destruction 


inopinée d'un gros fichier. Aussi a-t-on 
étudié le problème de la sauvegarde des 
informations sur un autre support. Une 
possibilité consiste à recopier sur des 
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disquettes 5 pouces, mais il faut 67 lesquelles plusieurs utilisateurs disposant 
disquettes et beaucoup de patience pour chacun de leur poste de travail, accèdent aux 
effectuer une sauvegarde complète. En outre,” mêmes fichiers. 

si un fichier est de taille supérieure à 
140K, il faut le découper pour pouvoir le 
sauvegarder, ce qui ne simplifie pas 
l'opération. C'est pourquoi la sauvegarde sur 
magnétoscope est devenue la solution la plus 
fréquente; de plus, le magnétoscope passe 
ainsi au titre des frais professionnels ... 


Conclusion 


L'Apple III n'a rien apporté de neuf en 
matière de disques souples. Par contre, 
l'existence du Profile qui apporte 5M octets 
à un prix abordable prouve l'existence du 
besoin des utilisateurs en mémoire de masse. 
Le disque dur Cynthia, commercialisé par IEF, On peut simplement regretter que rien n'ait 
Microexpansion, Micromos et MIS, est une été prévu pour la sauvegarde des informations 


solution élégante à ce problème de stockées sur le Profile: qui a envie de faire 
sauvegarde. On dispose dans une même unité 35 copies de disquettes consécutives, dans le } 
d'un disque fixe de 10M octets, et d'un pire des cas ? | 
disque amovible de même capacité. La On peut penser aujourd'hui que le bon 
sauvegarde s'effectuant sur une cartouche compromis réside dans la solution mixte 
amovible, plus de problème d'échange de souple+dur, avec sauvegarde du disque dur sur 


fichiers ni de recopie de sécurité. le disque souple, sous réserve que celui ait 
Les disques durs disposent en outre d'un une capacité suffisante comme dans le cas du 
système de multiplexage qui permet de relier 1M otets sur 5% pouces. D'autant que le 
plusieurs  Apples à un disque donné et de disque dur peut être relié à plusieurs Apples 
réaliser ainsi des applications dans Ou autres ordinateurs individuels. 


TABLEAU COMPARATIF DES PRINCIPALES MEMOIRES DE MASSE POUR APPLE II-SILEX-ITT 2020 


qq 





Caractéristiques Sildisc Sildisc Floppy Corvus Galaxian Cynthia 
Modèle E Modèle F T,E.F, 140 
TT ne me eee pui on ee ep 
Constructeurs Léanord Léanord I.EF; Micrologie Micro- Micromos 
ou distributeurs Exp.+ MIS +: LEP. 
ET pe gp 22 7 ET ET RS EE ES Em 
Capacité standard E1:2*256K F1:2*512K 1M octets 5=10-20 2*10M 2*10M 
E2:2*512K F2: 2# 1M 2M octets M-octets 
Extensions possibles 2è unité 2è unité 2è unité 2è unité Non Non 
Systèmes d'exploitation 
DOS Oui Oui Oui Oui Non Oui 
Pascal UCSD Oui Oui Oui Oui Non Oui 
CP/M Non Oui Oui Oui Non NC 
M/DOS Non Oui Oui NC Oui Oui 
Support 2*8" 2*8" 1M: 145" Disque 2 disques 2 disques 
2M:2*5"à scellé fixe+amov  fixe+amov 
Compatibilité IBM Non Oui Non Non Non Non 
Taux de transfert 250Kbit/s 500Kbit/s 250Kbit/s NC 920Koct/s 920Koct/s 
Sauvergarde _——— ee -— Magnétos. Disque Disque 
Sy.miroir amovible amovible P 
A A 2 "2 ES 
Dimensions 1*L*h cms 47.62.13 32.55.31 cf. Apple Selon type 68.50.25 68.50.25 
Poids 15 kgs 18 kgs idem idem 15 kgs 15 kgs | 
PUOQO NZ SONT ÉD EE 7 ) Dodo M & Date 2 te ses 
Prix de base (H.T.) E1:16800F F1:25500F 1M:11000F 36.000 F 59.000 F 59.000 F 
E2 23000F F2 29500F 2M 19000F 10M octets 
Prix/K-octets (H.T.) E1:32,62F F1:24,90F 1M: 10,74F 3,6F 2,88F 2,88F 


E2:22,46F F2:14,4O0F 2M: 9,50F 


Nb Apples connectables 1 1 1 1 à 64 1 à 4 1-16+ 


RO LR EE SE 
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Réponse au concours 


de Pom'’s 





LIST 
20733 CALL -936: TAE 19: VTAE 13 
20734 DEVINETTE= ASC("FOMS")x FEEK 


(-1823)/ FEEK (-1595)xFOMS * 
FOMS 


20735 FOKE FEEK (-7782),12: FOKE 
FEEK (-4710),184 
20736 POKE 2069, FEEK © KND (4096 
6, 
20737 PRINT ‘"PFOMS" 
20738 POKE FOMS,FOMS 
20739 POP 
Nous avons regroupé ici les explications de 
Dominique Devernay (initialement condensées 
en quelques formules lapidaires, jetées sur 
le papier dans l'ivresse de la victoire), et 
celles de J.-F. Duvivier, beaucoup plus 
didactiques (à l'époque de leur rédaction, le 
pauvre J.F.D. croyait être le seul à détenir 


la Vérité...). 


* Ligne 20733 : pas de mystère. 
* Ligne 20734 : elle attribue à la variable 
DEVINETTE la valeur 215. En effet 
. ASC(POMS)=ASC( P)=208 
. PEEK(-1823) est une constante, car 
l'adresse -1823 se trouve dans le 
moniteur. De fait, PEEK(-1823)=144 
. PEEK(-1595)=139 (cf. ci-dessus) 
. La variable POMS est égale à 0, 
car elle n'a pas encore été utilisée. 
En conséquence, POMSAPOMS = 0A0 = 1 
. En résumé, DEVINETTE = 208*144/139*1 = 
215,48 = 215 (on est en INTEGER). 


* Ligne 20735 $E19A (-7782) et $ED9A 
(-4710) se trouvent en ROM et contiennent 
donc des valeurs constantes (respectivement 
78 et 79). Cette ligne peut donc s'écrire 
POKE 78, 12:POKE 79, 184. Les adresses 78 et 79 
correspondent aux registres servant de 
racines" pour le générateur de nombres 
aléatoires. Si RDKEY n'est pas appelé entre 
temps,  RND(4096) donne obligatoirement 2060, 
en raison des valeurs chargées dans les 
registres (12 et 184). 

* Ligne 20736 : en raison des explications 
ci-dessus, cette ligne équivaut à POKE 
2069, PEEK(2060). Elle modifie la table des 
variables de 1l'INTEGER, située à partir de 
l'adresse 2048 ($800). Plus précisément 

2060 = adresse de l'octet de poids faible 
de la variable DEVINETTE 

2069 = adresse de l'octet de poids faible 
de la variable POMS. 











ÿ ue ! 
ATTEIN TION: = 
Cou PIÈGE 1 


Ceci revient donc à POMS=DEVINETTE. 


* Ligne 20737 
attention, car 
plus délicat. 


sans commentaires. Mais 


nous en arrivons au point le 


20738 
variables 


* Ligne 
sur les 
variable POMS 
donc un 


depuis les manipulations 
de la ligne 20736, la 

vaut 215. Cette ligne effectue 
simple POKE 215,215 soit en 
hexadécimal POKE $D7,$D7. Pour en mesurer la 
portée, il est nécessaire de connaître un peu 
la structure d'une ligne de programme INTEGER 
stockée en mémoire. Chaque ligne est ainsi 
représentée 


es. 7 
Nombre Numéro de 


Fin ligne 
d'octets la ligne ($01) 


Token des 
instruct. 


L'interpréteur BASIC 
mémoire octet par 


INTEGER analyse la 
octet et exécute les 
instructions. A chaque fin de ligne, 
c'est-à-dire chaque fois qu'il rencontre un 
$01, il sait que les trois octets suivants ne 
représentent plus des instructions mais sont 
des informations sur la ligne suivante 
(longueur et numéro). Il positionne un "flag" 
(littéralement ‘“drapeau"), situé en page zéro 
à l'adresse $D7, lui permettant de savoir 
dans quelle configuration il se trouve. Si la 
valeur en $D7 est supérieure à 128, 
l'interpréteur sait que les octets suivants 
sont des instructions; si elle est 
inférieure, il sait que les trois octets 
suivants sont des "informations de ligne". 
Lorsque l'interpréteur a analysé la ligne 
20738, il a trouvé un $01 signalant la fin de 
ligne et a donc positionné $D7 à une valeur 
inférieure à 128. Il exécute ensuite 
l'instruction décodée (le POKE 215,215) qui 
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remet justement $D7 à une valeur supérieure à 
128. 

* Ligne 20739 - La ligne 20739 est stockée 
comme suit en mémoire 
05-03-51-77-01, soit 





Enseignement Assisté par Ordinateur pour Ordinateurs 
MNOPPE D'ANPICO = SILEX = ITT 2020 = APPLE II = APPLE II + 
COURS EN FRANCAIS 













« APPMESOPT D APPLE II ( + Carte APPLESOPT ) FO 

D Ex a) 05 : nombre d'octets de la ligne 

= MOPPE D'ANPICO ( + APPLESOFT en ROX }) 03-51 : représente 20739 en Hexa 
ET EE COR RC. À \ 77 : "token!" pour l'instruction POP 


01 : fin de ligne. 


Quand l'interpréteur en arrive à cette ligne 
20739, il trouve trois octets indiquant la 
longeur de la ligne et son numéro, mais sur 
la foi de son "flag" $D7, il "croit" que ce 


sont des instructions. La ligne 20739 est 1 
donc analysée comme suit 

05 = "token" pour SAVE (sur cassette) 

03 = ":" séparateur d'instructions | 
51 = "token" de l'instruction END 

77 = POP (ne provoque pas d'erreur puisque 

END a été rencontré). 

Ainsi, après le M"POKE 215,215", l'Apple 
exécute un SAVE sur la sortie cassette 


(responsable du temps d'arrêt observé ainsi 
que des deux fbip') et un END. D'ailleurs, 
comme le fait remarquer D. Devernay, un POKE 
-27142,3 permet de lister cette dernière 
ligne bien malmenée 


20738 POKE POMS, POMS: SAVE: END: POP 














ormetion payante. 
erches, Laboratoires, Ce 
. Comité d'Entreprises. 


PRIX ( T.V.A. comprise ) 

« COURS 2 ( BASIC + ) 3S0FF = 
Prix donnés à titre indicatif, pouvan 
être modifiés sans préavis. 









Rendez-vous maintenant pour les prochains 
concours, qui permettront peut-être à D 
Devernay d'assurer son approvisionnement en 
Pom's jusqu'à l'aube du troisième millénaire! 


SYe181:11:101 ET 
En plein cœur de TOULOUSE 
c'est : 

100 m? d'exposition spécialisée 

Une équipe de techniciens 

à votre service pour : 
Etudes 
Programmes 
Mise en place | 
Formation | 
Service après-vente | 

| 


Selle) ET 


BOUTIQUE MICRO INFORMATIQUE LIBRAIRIE INFORMATIQUE 


9, rue Kennedy . 31000 TOULOUSE 
CONTRAT D'ENTRETIEN : S.A.V. DEPANNAGE RAPIDE 
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Création de tables de formes 





La toute-puissante instruction DRAW du BASIC 


Applesoft permet, entre autres choses, la 
création de caractères de formes et de 
tailles très diverses. Mais cette instruction 


liée à l'existence de tables de formes 
(shape tables) un peu délicates à créer, 
comme on peut le constater en lisant le BASIC 
Programming Reference Manual, pages 92 à 95. 


est 


programmes détaillés ci-après sont 

faciliter la création de ces 
premier, CONSTRUIT, rend pratique 
le dessin de formes et le second, ASSEMBLE, 
assemble les formes construites en une table 
de formes selon la logique requise par 
Applesoft. La disquette Pom's contient les 
fichiers suivants, dont certains ne sont pas 
listés ici, faute de place 


Les deux 
destinés à 
tables. Le 


. MENU oriente l'utilisateur entre les 
programmes de création graphique 

. TRANSFERT : autorise un transfert rapide de 
graphismes 
. MINUSA, 
minuscules 
.  TAB-MINUS : 
26 minuscules 
. ESSAYE : programme démontrant l'utilisation 
de TAB-MINUS pour entrer directement du texte 


en minuscules à l'écran à partir du clavier. 


MINUSB, MINUSZ : formes de 26 


... 


table regroupant les formes des 


Le programme CONSTRUIT 


Avec ce programme, il est aisé de dessiner ou 
de corriger à l'écran une forme placée à 
l'intérieur d'une grille dont les dimensions 
auront été définies au préalable. Pour 
réaliser le dessin, 7 touches du clavier sont 
utilisées come suit 


le haut 
le bas 


déplace le 
déplace le 
déplace le 
déplace le 
enregistre 
du curseur 
efface le point à la position du 
curseur 

indique au programme la fin du 
dessin 


curseur 
curseur 
curseur vers la droite 
curseur vers la gauche 
le point à la position 


vers 
vers 


espace .. 


RETURN .. 


Le signe “"*" dans la grille représente un 


point de la figure haute résolution finale. 


sur la 
chaque 


La pression 
l'analyse de 


touche RETURN provoque 
point de l'écran (dans 
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les 


création 


est 


droite 


de dimension de la grille) et la 
d'un tableau de vecteurs. L'analyse 
effectuée de haut en bas et de gauche à 
pour les lignes impaires, et de droite 


limites 


à gauche pour les lignes paires. 


Afin d'éviter la génération de vecteurs 
inutiles, et pour économiser ainsi la place 
mémoire, chaque ligne ne comportant que des 
vecteurs de déplacement horizontal (1 ou 3) 
est remplacée par un vecteur unique de 
déplacement vers le bas (2). Ceci est réalisé 
tant au'il n'v a pas eu de ligne comportant 


190 


290 


360 


370 


390 


400 


430 


Analyse du programme 


à 280 
Texte de présentation. Utilise la routine 
de cadrage située en 1950. L2S est la 
variable de travail pour le texte à 
cadrer 
à 350 
Demande la largeur LA% et la hauteur HA% 


du graphisme à traiter (maximum 24 points 


chacune). La touche RETURN appuyée deux 
fois consécutivement indique la fin de 
travail, traitée en 610. 

Appel de la routine expliquant 
l'utilisation des touches du clavier en 
900. 

à 380 

Définition de la ligne de grille qui sera 
affichée dans le cas de création d'un 
graphisme. 


Débranchement vers la routine en 1480. 

à 420 

Affichage de la grille pour création d'un 
graphisme. Boucle sur la hauteur HA% 
obtenue en 290-350. 

à 590 
Routine 
passées 


de saisie des informations 
par l'utilisateur, que ce soit en 
création ou en mise à jour. Les quatre 
opérations de déplacement sont commandées 
par la flèche gauche (480-500), la lettre 
"B". (510), la lettre "H" (520) et la 
flèche droite (530). Les signes "*! (540) 
et ":" (550) marquent le signe "*" à la 
position du curseur et déplacent d'une 
case vers la droite. La touche 
d'espacement (560) met la position du 
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600 


610 


750 


900 





curseur à blanc (effacement) et avance le 
curseur. Le contrôle de la position du 
curseur en fonction des valeurs de HA% et 
LA% est réalisé dans la section 570-580. 
La touche RETURN (590) est utilisée pour 
identifier la fin de la saisie; on 
appelle alors la routine 1160, qui 
analyse l'écran, le sauve sur disquette, 
et revient en 240 pour demander le 
prochain graphisme. 


Retour à la lecture du clavier. 

à 740 

Routine de fin de travail, qui propose 
d'exécuter le programme ASSEMBLE ou de 
clore le traitement. 

à 890 

Trois routines pour émettre des bruits 
note haute, note moyenne et note basse. 

à 1150 

Routine destinée à 
explicatif sur 


afficher le texte 
l'utilisation des touches 


du clavier. L'affichage est limité à 
trois fois durant l'exécution du 
programme ; tant pis pour ceux qui 


n'auront pas encore compris ... 


1170 à 1360 
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La touche RETURN a été enfoncée. Ce 
sous-programme analyse le contenu de 
l'écran caractère par caractère, dans les 
limites de LA% et HA%. En 1180, l'indice 
Ki du tableau des vecteurs et 
l'indicateur IN du premier vecteur avec 
trace sont initialisés. 


Définitivement, les minuscules accentuées 
ROM<LC” 


avec la 





Sans modification sur votre Apple: 
vous pouvez avoir des caractères 
MAJUSCULES, minuscules, avec jambages 
descendant, accentués, graph. etc... La"ROM LC 
est compatible avec plusieurs Softwares: 
APPLEWRITER, MAGIC WINDOW. TEXT/ ED etc. 


à La Boutique Noire, Centre Beaugrenelle. 
Rue Linois 75015 Paris Tel: 575.59.96 


Revendeurs, contactez-nous. 


1220 : si la position de l'écran comporte 
un ‘“*#", stockage du vecteur 5, indicateur 
du premier vecteur avec trace trouvé et 
saut vers la fin de boucle. 

1230 : dans le cas contraire, stockage du 
vecteur 1 et position de l'écran à blanc. 


1250 : s'il n'y a pas de vecteur trace 
dans la ligne (IN=0), retour arrière de 
LA#%-1 dans le tableau des vecteurs, et 
mise à 2 du vecteur du ler caractère de 
la ligne. 

1260 : dans le cas contraire, on ajoute 1 
au dernier vecteur pour forcer le 


déplacement vers le bas, et 1 à l'indice 
de la boucle sur les lignes afin de 
traiter la ligne suivante (ligne paire). 
1270 : si la fin de boucle est atteinte, 
attendre avant l'analyse. 

1280-1330 comme 1200-1270, mais pour 
une ligne paire, donc de droite à gauche. 
1350 : fin de la boucle des lignes, donc 
de l'analyse de l'écran. 

1355 : ajout de deux vecteurs à zéro dans 
le tableau. 

1360 C wait avant sauvegarde. 
L'utilisateur doit appuyer sur une touche 
pour en sortir. 


1370 à 1380 


Demande le nom du fichier disque qui 
recevra le tableau des vecteurs. 


1390 à 1470 


tableau des vecteurs, dont 
est la suivante : un entier 


Sauvegarde du 
la structure 










* Pour Apple! plus Rev. 7 ou plus. 
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donne le nombre de vecteurs du tableau; 
il y a ensuite un entier par vecteur. 
Retour au début de programme en 240. 

1490 à 1630 
Demande s'il s'agit d'une création ou 
d'une mise à jour d'un tableau (fichier) 
de vecteurs existant. Retour en 400 pour 
une création; la mise à jour débute en 
1650. 

1640 
Instructions de sortie du programme. 

1650 à 1850 


Routine de lecture des vecteurs et trace 
sur l'écran en mode texte selon leur 
contenu. 

1860 à 1930 
Création du tableau LI% donnant les 


adresses de début de chaque ligne de la 
page 1 en mode texte (c'est vrai, 


j'aurais pu les calculer Sen) 





Le programme ASSEMBLE 


Ce programme réalise l'assemblage des formes 
qui dessinées, puis sauvées par CONSTRUIT. 


Après avoir reçu l'adresse mémoire où sera 
écrite la table ($6000 est un bon choix; de 
toute façon, une table de formes est 
“relocatable"), et les noms des fichiers à 
prendre en compte, le programme ASSEMBLE lit 
ces derniers et crée une table de formes. À 
la fin de chaque fichier, la forme 
correspondante est affichée en haute 
résolution. 

En fin de travail, la table de formes peut 
être sauvée sur disquette. Son contenu est 
ensuite affiché à l'aide de l'instruction 
DRAW. Le programme pousse enfin la 
gentillesse jusqu'à fournir à l'utilisateur 


les deux POKEs à introduire dans le programme 
appelé à utiliser la table de formes. 


Remarque : il suffit de modifier les 
instructions du programme CONSTRUIT entre les 
numéros 480 et 530 pour remplacer les codes 
de déplacement selon les quatre directions 
cardinales par les codes traditionnels I, J, 
K et M. 


Tel qu'il est conçu, ASSEMBLE est adapté à 
l'assemblage de formes ayant été créées sous 
un nom ayant une racine commune, la dernière 
lettre seule identifiant les formes à 
assembler les unes aux autres. Quand on crée 
avec CONSTRUIT des formes destinées à être 





il faut alors prévoir de leur 
noms adéquats. Si l'on souhaite 
formes initiales des noms variés, 
lors de l'assemblage une 
répond par un RETURN à 


assemblées, 
donner des 
donner aux 
il faut indiquer 
racine vide (on 
blanc). 


Mnalyse du programme 


100 à 160 
Création du tableau destiné à la 
conversion de l'adresse de chargement de 
la table. 

190 
Fonction modulo pour la conversion 
décimale-hexadécimale. 

200 à 260 


Entrée du nombre de figures à assembler 


et des noms des fichiers source (SUB 
1470). 

270 à 290 
Entrée de l'adresse mémoire (hexa) où 
doit être chargée la table. 

300 à 330 


Construction du début de la table en 


mémoire nombre de définitions et index 
de la première définition. 

340 à 380 
Calcul, mise en place et affichage de 


l'adresse de la table dans les positions 
connues d'Applesoft (SE8 et SE9). 


400 
M = adresse de la première définition, et 
L = adresse où sera écrite la prochaine 
définition. 

430 à 530 
Boucle sur le nombre de figures 
assemblage de la définition, calcul de 


l'adresse de chargement de la prochaine 
et affichage de la forme construite. 
550 à 605 


Sauvegarde (facultative) de la table sur 
disquette. L'adresse et la longueur sont 
affichées après la sauvegarde. 

610 à 740 
Affichage du contenu de la table. 

770 à 860 
Conversion hexadécimal à décimal de 


l'adresse entrée au clavier en 270. 

870 à 900 
Sous-programme de conversion. 

1230 à 1420 
Lecture et 
source. 

1470 à 1580 
Etrée des 
traiter. 

5000 à 5500 
Routine de création des 
table à partir 
entières créé par 


chargement d'un fichier 


noms des fichiers sources à 


octets de la 
du tableau de valeurs 
CONSTRUIT. Toutes les 
valeurs lues, comprises entre O0 et 7 
inclus, sont combinées pour former les 
octets de la table selon la logique de 
l'Applesoft. 
7000 à 7090 
Traitement de fin de programme. 
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1LOAD CONSTRUIT 420 
ILIST 430 
440 
100 REM xx KM M NC OK DICO DICO DC INDICE CON 
x x 
x CREATION GRAFHISME x 
X HAUTE RESOLUTION x 
x x 450 
x 08 FEVRIER 82 x 460 
x x 470 
XCD DMC OK DC OK DICO DICO DAC DCI OC 480 
110 REM 
120 DIM TEX(4600) 490 
130 KEM DEF NUMEROS DE LIGNE 
140 GOSUE 1860 500 
150 SPEED= 255 
160 TEXT ; HOME 510 
170 GOSUE 2080 
180 REM 520 
190 REM —-—-" ve ne mano ne me où on mon en me 
P R:0 k::0 GE 53 0 
200 L2$ = "VOUS DESIREZ CREER UN 540 
DESSIN EN" 
210 VT = 2 GOSUE 1950 550 
220 L2$ = "HAUTE R-E S:0 L 
U_Æ:1 O0 N° 560 
230 VT = 45 INVERSE $: GOSUE 1950: 
NORMAL 570 
240 L2$ : "ENTREZ LA LARGEUR ET L 
À HAUTEUR" 580 


2950 VT = 8; GOSUE 1950 
260 L2$ = "SOUS LA FORME : LL,HH 590 


270 VT = 10% GOSUE 1950 600 
280 L2$ = "(VALEURS MAXI RESPECTI 610 
VES = 24 ET. 24)" 
290 VT = 124 GOSUE 1950 
295 VTAE 215 FRINT " (2 FOIS 
RETURN FOUR TERMINER) 


300 VTAE UT r 3: HTAE 16 HS 
310 INPUT "=>"; LARGES , HAUTS 640 
520 IF LEN (LARGES) = 0 THEN 

GOTO 410 650 


330 IF VAL (LARGES) < 1 OR VAL 
(LARGES) > 24 THEN GOSUE 75 660 
0? GOSUE 800% GOTO 160 670 

340 IF VAL CHAUTS$) < 1 OR VAL 
CHAUT$) > 24 THEN GOSUE 750 680 


$ GOSUE 800; GOTO 160 690 
350 LAX = VAL (LARGES$):HAX = VAL 700 

CHAUT$ ) 
360 GOSUE 900! REM EXFLIC, 710 
370 KEM 720 
380 LIS$S = LEFTS Ces esse 730 

000000" LAX) 740 
390 HOME : GOTO 1480 750 
400 FOR NL = 1 TO HAX 760 
410 VTAB NL$ HTAEB 15 FRINT LIS$; 770 
22 
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2222 0 nn 


NEXT NL 

REM 

REM CXKKOK OKON CNE DK DC CON DK OCDE 
x x 
x REMPLISSAGE x 
x x 


LET VT = 1IHT = 1 
VTAB UT: HTAB HT 
GET RF$ 
IF ASC (RKF$) = 8 AND HT > 1 
THEN HT = HT - 1% GOTO 460 
IF ASC (RPF$) = 8 AND HT = 1 
AND UT = 1 THEN GOTO 460 
IF ASC (RF$) = 8 AND HT = 1 
THEN VT = VT - 1: GOTO 460 
IF ASC (RF$) = 66 THEN UT = 
UT + 1 
IF ASC (RF$) = 72 AND VT > 
1 THEN UT = UT - 1 
IF ASC (RF$) = 21 THEN HT = 
HT + 1 
IF KRPF$ = "x" THEN PRINT KPF$ 
?°HT = HT + 1 
IF KF$ = "$" THEN FRINT "x" 
$3HT = HT + 1 
IF RPS$ = " " OR KP$ = "," 
THEN PRINT RP$$5HT = HT + 1 
IF HT > LAX THEN HT = 150T 
UT + 1 
IF VT > HAX THEN UT = 1:HT = 
1: GOTO 460 
IF ASC (RPF$) = 13 THEN 
GOSUE 1160: HOME ; GOTO 240 
GOTO 4460 
RE M KR OMC DK DMC OMC DK DAC ONCE DAC OC DC DC OC 
x x 
x FIN DE TRAVAIL x 
x x 
NC DMC DC DMC D DC DC DC DAC DC DAC DDC DDC DC OK 
HOME 


ü 


VT = 10 


VTAB 735 PRINT " ENTREZ. 5 ” 


L2$ = "1 SI VOUS VOULEZ ESS 
AYER LES DESSINS" 

GOSUE 1950 

VT = 12iL26 = "2 SI VOUS VO 
ULEZ TOUT ARRETER Le 
GOSUE 1950 

VTAB 16: GET ZZ$ 

IF ZZ$ = "2" THEN GOTO 1640 


D ZE < > "1" THEN 620 


D$ = CHR$ (4)5 PRINT 


PRINT D$;'"RUN ASSEMBLE" 
END 

REM <<<<<NOTE HAUTE>>2>2>2> 
POKE 769,30 

FOKE 768,80 


780 CALL 770 

790 RETURN 

800 REM <<<<<NOTE MOYENNE: 

810 FOKE 769,30 

820 FOKE 768,130 

830 CALL 770 

840 RETURN 

850 REM <<<<<NOTE BASSE>>2>2> 

860 FOKE 769,30 

870 FOKE 768,180 

880 CALL 770 

890 RETURN 

900 REM 

10 REM XXCXKMMM MM DICO DIE OCDE HCOKK 
x x 
x TOUCHES FONCTIONS x 
x x 
ACDC DMC NC DC DC DC DC DDC OC DDC OC DK DC OC DC 

920 REM 

930 SX = SX + 195 IF SX > 3 THEN 

RETURN 940 HOME 
950 FLASH !: VTAE 25 FRINT "ATTEN 


960 


970 
980 
990 


1000 
1010 


1020 
1030 


1040 
1050 


1060 
1070 


1080 
1090 


1100 
1110 


1120 
1130 
1140 
1150 
1160 
1170 


1180 
1190 


TION !" 

NORMAL. SVT = SiL2$ = "NOTEZ 
BIEN L'UTILISATION DES TOUCH 
ES 3° 


GOSUE 1950 
VTAE 8 
PRINT "->  (FL,.DROITE) = 
CURSEUR À DROITE"; 
VTAE 10 
PRINT "<-—  (FL:GAUCHE) = 
CURSEUR À GAUCHE"; 
VTAB 12 
PRINT "H (LETTRE  H) = 
CURSEUR EN HAUT ‘“; 
VTAB 14 
PRINT "B (LETTRE E) = 
CURSEUR EN EAS ‘; 
VTAB 16 
PRINT "3 (2 FOINTS) = 
FOSITION REMPLIE"; 
VTAB 18 


PRINT "ESPACE OÙ ‘x’ # 
FOSITION BLANCHE" } 

VT = 20 

L2$ = "<RETURN> QUAND C'EST 

FINI," GOSUE 1950 

VTAE 24 

HTAE 32% PRINT "<RETURN:"; 
GET Z$ 


RETURN 

REM 

REM KKCMOCOMCDKCDKCDKE DK DD DOC OC 
x x 
x ANALYSE D'ECRAN x 
x x 


LET K4 = O$IN = 0 
FOR À = 1 TO HAX 


1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 


1500 
1510 
1520 


1530 


1540 
1550 


1560 
1570 
1580 


1590 
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FOR CA = 0 TO (LAX — 1) 
LET K4 = K4 + 1 

IF FEEK (LIX(A) + CA) = 
0 THEN TEX(K4) = S3IN = 1: 
GOTO 1240 
TBX(K4) = 15 POKE (LIZX(A) + 
CA), 160 

NEXT CA 

IF IN = 0 THEN K4 = K4 - (L 
AX — 1):TBX(K4) = 23% GOTO 13 


50 


17 


TBX(KA4) = TBX(KA4) + 14 = À + 


1 
IF À > HAX THEN 1355 


FOR CA = (LAX - 1) TO 0 STEF 


- 1 

LET K4 = K4 + 1 

IF PEEK (LIZ(A) + CA) = 17 
0 THEN TEXCK4) = 73IN = 1: 
GOTO 1320 

TBX(K4) = 33 POKE (LIX(A) + 
CA) ,160 

NEXT CA 

TBX(K4) = TBX(K4) - 1 

NEXT À 
K4 = K4 + 1:TBX(K4) = DIK4 = 
K4 + 11TBX(K4) = 0 

GET RP$ 

HOME ?UT = 12:L2$ = "NOM DU 
FICHIER :": GOSUE 1950 

VTAB 14: HTAB 15: INPUT ""; 
NM$ 

IF NM$ = "" THEN 240 
D$ = CHR$ (4) 

PRINT D$; "OPEN "}NMS$ 

PRINT D$/"WRITE "$NM$ 

LET K4%X = K4t PRINT K4% 

FOR À = 1 TO K4%X 

PRINT TEX(A) 

NEXT A 

PRINT D$};"CLOSE "}NM$ 

HOME : GOTO 240 

REM 


ee ous mens tte nant noue mnt one ones ent en0n 008 00e mnt daee et db mie mme mme 


HOME UT = 12 
VT = 12 
L2$ = "CREATION OÙ MISE À JO 
UR ?" 
GOSUE 1950: UVTAE 14; HTAE 1 
7 
GET 7Z$ 
IF Z$ = "C" THEN HOME ! 
GOTO 400 
IF Z$ < > "M" THEN 1500 
HOME UT = 12 
L2$ = "NOM DU FICHIER ?"; 


GOSUE 1950 
VTAE 14% HTAB 16% INFUT "‘"} 


NM$ 


23 





IF NM$ = "" THEN 1500 

HOME : VTAE 235 HTAE 38: 
PRINT ""} 

D$ = CHR$ (4) 

GOTO 1650 

REM sememmmmefteTeNememœmxs 
HOME :L2$ = "A EIENTOT ,,," 
#VT = 125 GOSUE 1950: VTAB 2 
# END 

REM;: =remeemesnmese mette 

MISE À JOUR DE GRAF 

PRINT D$;"OFEN "$NM$ 

PRINT D$;"READ "ÿ;NM$ 

INFUT K4% 

LET CA = OfLI = 1 

FOR X = 1 TO K4%X 

INFUT TBX$ IF TEX = 0 THEN 
1770 

IF TEX > 3 THEN FOKE (LIZ( 
LI) + CA),170; GOTO 1740 


POKE (LIX(LI) + CA),174 
ON (TE%X + 1) GOTO 1760,1800 
1820,1840,1760,1800,1820,18 


STOF 
LI =. LI - 19 IF LI < 1 THEN 
GOSUE 750: GOSUE 7S0iLI = 1 
NEXT X 
FRINT D$;'"CLOSE "?;NM$ 
GOTO 430 
CA = CA + 13 IF CA % LAX THEN 
GOSUE 800: GOSUE 800$CA = L 
A% — 1 
GOTO 1770 
LI = LI +19 IF LI > HAX + 1 
THEN GOSUE 850: GOSUE 850: 
LI = HAZ + 1 
GOTO 1770 
CA = CA - 11 IF CA < 0 THEN 
CALL — 10525 CALL - 1052: 
CA = 0 
GOTO 1770 
REM 


REM NUMEROS DES LIGNES 

REM 

DATA 1024,1152,1280,1408,15 
36,1664,1792,1920,1064,1192; 
1320,1448,1576,1704,1832,196 
0,1104,1232,1360,1488,1616,1 
744,1872,2000 

DIM LIX(24) 

FOR LI 2 70 24 


READ LIX(LTI) 
NEXT LI 
RETURN 


1950 REM XX MMM NME OC NC AUK 
x x 
x CENTRAGE DE L2$ x 
x x 
CHOCO CMD DC OCDE DC DCE HO MC 
1960 LET X = FRE (0)? REM FREE 
MEM 
1970 IF LEN (L2$) > 39 THEN 
PRINT "TROP LONG ..,." 
1980 HTX = (40 - LEN (L2$)) / 2 
1990 REM FIN CENTRAGE TITRE 


2000 VTAB VT? REM FOURNI 
2010 HTAE HTX: REM CALCULE 
2020 FRINT L2$: NORMAL 
2030 RETURN 
2040 FLASH ? PRINT "LONGUEUR L2$ 
> +40" 
2050 PRINT L2$!: NORMAL ?: STOF 
2060 FLASH ? PRINT "HTAE = "SÿHTZ 
2070 GOTO 2050 
2080 REM 
2083 REM ROUTINE SON 
2085 REM 
2090 FOKE 770,173: POKE 771,48% FOKE 
772,192! FOKE 773,136: FOKE 
774,208: FOKE 775,5: FOKE 77 
6,206: FOKE 777,1? FOKE 778, 
3: FOKE 779,240: FOKE 780,9: 
POKE 781,202 
2100 FOKE 782,208: FOKE 783,245: 
FOKE 784,174: FOKE 785,0: FOKE 
786,3: FOKE 787,76: FOKE 788 
,2t FOKE 789,3: FOKE 790,96: 
FOKE 791,0: FOKE 792,0 
2110 RETURN 
1LOAD ASSEMELE 
ILIST 
10 LOMEM: 16384 
12 REM KM AM MKMCMCMCCMCMC OK OKOK 
x x 
x TABLE DE FORMES x 
x x 
CCC DC ONCE OC OC OC OC OC DC CCC OC OC OC OC 
19 SCALES= 1 
20 DIM TPFX(600) 
40 TEXT : POKE 34,0 
50 HOME : VTAB 1: HTAE 12 
55  INVERSE 
60 PRINT " ASSEMBLAGE "? NORMAL 
70 FOKE 34,2 
90 REM 
100 REM 
110 DIM HEX$#(16,2) 
120 FOR I = 1 TO 16 
130 FOR J = 1 TO 2 








READ HEX$(T;,1J) 
NEXT J 
NEXT I 
DEF FN MOD(A) = INT ((A / 
256 — INT (À / 256)) x 256 + 
+05) X SGEN (À / 256) 
KEM 
REM XOKOKOKOM NN NN DK OKON DC DOC DC OKON DICK 
x x 
X DEEUT DU FROGKAMMEX 
x x 
MOKOKK OKON NOK DK DAC DDC DICO DC DICO DICK 
VTAE 45 CALL - 958 


INFUT "COMEIBN DE FIGURES À 

ASSEMELER ? "ÿL$ 

LET NN = VAL (L$) 

IF NN < 1 THEN GOTO 7000 

GOSUE 1470 

PRINT 

INPUT "ADRESSE HEXA = 

GOSUE 770% FRINT 

LET L = VAL (L$)5 REM ADDR 

FOKE L,NN$ FOKE (L + 1),0 

LET LL = 4 +.(NN -— 1) x 2 

GOSUE 870 

POREA(L + 2),L21 

),L1 

LET LL = LS 

FOKE 232,L2: FOKE 233,L1 

HOME % PRINT : FRINT : HTAE 

9% FRINT "AJOUTEZ DANS VOTRE 
PROGRAMME "3 PRINT 

FRINT $ FKINT TAB( 08): 
INVERSE 

PRINT "PFOKE 232,'"iL25$": 
233,";L1 
NORMAL : 


“ils 


POKEXE +3 


GOSUE 870 


FOKE 
FRE (0) 


HGR 
2 + NN x 


GET A$: PRINT 


PRINT :M = 
LET M= Lil = L + 


LS 


VTAEB 21 

REM KM MON DNEONE ON DNCDIC DICK 
x x 
x DEBUT DE LA EOUCLEXx 
x x 
DKMCOMON MC OKON DONC DICK ONCE CON OU 

FOR N1 = 1 TO NN 

GOSUE 1230 

GOSUE 5000 

PRINT "FIN DE LA FIGURE 

$ FOKE L,0 

IF Ni < % NN THEN MM 

2 + Ni X 2iLL = L - M + 11! 

GOSUE 870: POKE MM,L2t FOKE 

(MM + 1),L1 


H 
z 
+ 


LETAE = L Hi 

HGR 

DRAW N1 AT 140,80 
NEXT Ni 


540 
99 0 
560 


570 


580 
590 


HOME ? VTAE 21 

REM 

REM  HCHOK NOK HONOR COCHON 
x x 
x SAUVEGARDE TAELE x 
x x 
AOKMONCOMCKEOK DC DK DC OCDE IC HUK 


FRINT "VOULEZ-VOUS SAUVER LA 
TABLE ? " 
GET À$ 
IF À$ < > "O0" AND ÀA$ € > " 
N'' THEN 540 
IF ÀA$ = "O" THEN  INFUT "QUE 
L NOM ? "ÉNSIN$S = "ESAVE" + 
NS HT AE = STRE CM): +2 "AL? 
+ TSTRS AL = MIS FRINT. 3 PRINT 
CHR$ (4) 5N$ 
FRINT N$i GET A$ 
REM 
REM KXOKMOMOMKMKKOKOKK NOK HKKOKOKKKK 
x x 
X ESSAI FIGURES x 
x x 
KXKKKMAMAMMMKMMUMMOMKMOMKONKHK 
HOME $ VTAE 21: FRINT "ESSAI 
DES FIGURES,"}; 
HGK # HCOLOR= 3 
ROT= 05X2 = 0:Y2 = 20 
INFUT " LARGEUR = "$iLA 
FOR Ni = 1 TO NN 
DRAN N1 AT X2,Y2 
X2 = X2 + LAS IF X2 > 260 THEN 
X2 = 0$Y2 = Y2 + 14 
NEXT Ni 
FOKE 34,0 
GOTO 7000 
REM 
REMEE ae RSnR Emme tpe 
CONVERSION ADRESSE 
FOR K = 1 TO LEN (L$#) 
LET J$ = MID$ (L$, LEN (L$) 
CT É ’ 12 
1 TO 16 


FOR I = 
IF J$ = HEX$(I,1) THEN J = 
CHEX$(I,2)): GOTO 830 

NEXT I 


LET M = M + 16 4 (K - 1) x J 


VAL. 


NEXT K 


LET L$ = STR$ (M) 


ER 


LET Li = INT (LL / 256):L2 = 
FN MOD(LL) 
RETURN 


25 
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1230 


1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1405 
1406 
1407 
1410 
1420 
1470 
1480 


1490 
1500 


22202 22222 


REM HOMME HN DNC DAC DICO OKON 5070 
” 7 5080 
x LECTURE AUTOMAT, x 5090 
x x 5100 
ACDC DCE DEC DC DCE DC DCI DCE DC DC CC 5110 
LET NM$ = NM$(N1) 5120 
LET D$ = CHR$ (4) 5130 
PRINT D$;"OFEN "3NMS$ 5140 
PRINT D$3"READ “?NM$ 5150 
INFUT C2% 5160 
FOR Ci = 1 TO C2% 
INPUT TPX(C1) 5170 
NEXT C1 5180 
PRINT D$$"CLOSE ‘"?$NM$ 
LET TPFX(C1) = 0 5190 
LET TPX(C1 + 1) = 0 5200 
LET TPX(CC1 + 2) = 0 5210 
LET TPX(C1 + 3) = 0 5220 
pr 5230 
RETURN 
+ 5240 
RCE M CR DONC DDC CCD DC OCDE DC OC 5250 
” : 5260 
x LECTURE DES NOMS x 5270 
x DES FICH.SOURCES x 5280 
x x 
COCOKK DK DK NC DICO DC OK DK DC OC DICK OK 5290 
DIM NM$ (NN) 5300 
HOME 3 INPUT "PREFIXE : ";F 5310 
F$ 
IF LEN (FF$) = 0 THEN LE = 
15 VTAE 245 HTAEB 31% FRINT 5320 
RETURN": UTAB 5: HTAB 1! GOTO 5339 
1520 5340 
LET LE = 2 5360 
FOR NM = 1 TO NN 
PRINT "NOM "3NM}" "3PFS3 5370 
IF LE = 1 THEN INPUT ""SNM 539s 
$ 
IF LE = 2 THEN GET NM$$ FRINT 
cost 5380 
NMSCNM) = FF$ + NM$ 5500 
NEXT NM 8000 
RETURN 
REM HOMME MCE DDC COMEDIE OCDE DDC 
ca a 7000 
x TABLE DE FORMES x pr 
= : 7010 
NOK DCE CD DC OCDE DC DC OCDE OCDE 7020 
NE = 1! REM NUMERO VECTEUR 
REM 7030 
7040 
LECTURE/CODIFICATION 
7050 
VES$S = STR$ (TPFX(C1))3C1 = C 7060 
1, +.1 
IF VES < "O0" OR VE$S > "7" THEN7070 
5020 7075 
VECNB) = VAL (VE$) 7080 
ON NE GOTO 5080,5140,5210 7090 
Pom's n° 4 


REM 
REM 1ER VECTEUR 
REM 
VEX(1) = VE(1) 
NB = NB + 1:VE(1) = 0 
GOTO 5020 
REM 
REM 2EME VECTEUR 
REM 
VEZX(2) = VEX(1) + (VE(2) x 8 


) 


IF VEX(2) = 0 THEN 5330 


NB = NE + 1:VE(1) = O$VEX(1) 
= 0 

GOTO 5020 

REM 

REM SEME VECTEUR 

REM 

IF VE(3) < > 0 AND VE(3) «< 


4 THEN 5280 


PRINT D$;'"RUN CONSTRUIT" 


VE(1) = VEC3)$VE(3) = 0 

POKE L,VEX(2)îL = L + 1 

NB = 1 

GOTO 5060 

VEZX(3) = VEX(2) + (VE(3) x 6 
4) 

IF VEX(3) = 0 THEN 5330 

POKE L,VEX(3)iL = L + 1 

NE = 1:VEX(3) = O$VEX(2) = 0 
$VEZX(1) = O$VE(1) = O$VE(Z) = 
O$VE(3) = 0% GOTO 5020 

REM 

REM FIN DE FORME 

REM 

REM VEX(3) CONTIENT VECTEUR 

FOKE L,VEX(3)êL = L + 1 

POKE L,0*% FOKE L + 1,0% FOKE 
L + 2,0% FOKE L + 3,0%L = L + 
1 

RETURN 

REM xxxxmx 

DATA 0,0,1,1,2,2,3,3,4,4, 
Dr9r6r6» 77585895 9r9r0r10,EB;1 
1,C,12,D,13,E,14,F,15 

REM 

REM 

HOME 3% VTAE 21 

PRINT " 1 FOUR CONSTRUIRE 
VTAE 23 

PRINT " 2 FOUR ARRETER " 
’ 

GET Z$ 

IF Z$ = "2" THEN HOME : END 
HOME ? PRINT 

IF, Z#.,<-.>-"1" THEN'7810 
D$ = CHK$ (4) 


JILOAD ESSAYE 
ILIST 


300 
320 


HOME % HGR2 ÿ HCOLOR= 3 
PRINT CHR$ (4);"BLOAD TAB-M 
INUS ,A$6000" 
FOKE 232,0: 
0 SCALE= 1 


330 FOKE 233,96; ROT= 





20 
30 
40 


50 
60 


340 L2$ = "QUAND CE TEXTE SERA EF 
FACE VOUS FOURREZ ENTRER'"$ GOSUE70 
2000 90 
350 L2$ = "DES CARACTERES ALFHABE 
TIQUES AU CLAVIER'!"'? GOSUE 20 100 
00 110 
360 L2$ = CHK$ (13): GOSUE 2000 
370 L2$ = CHR$ (13)% GOSUE 2000 120 
380 L2$ = " JE NE PISFOSE FAS ENC 
ORE DES CHIFFRES NI DES"? GOSUE 130 
2000 140 
390 L2$ = "CARACTERES MINUSCULES 150 
ACCENTUES MAIS IL FEUT'? GOSUE200 
2000 240 
400 L2$ = "ETRE INTERESSANT DE LE 
S CREER AVEC CONSTRUIT ‘‘$ GOSUE 250 
2000 260 
410 FOR HAI = 1 TO 5000 NEXT WA 
I 270 
420 HGR2 5X = 05Y = 0 280 
430 L2$ = "" 
440 GET L2$ 290 
450 GOSUE 2000 300 
460 GOTO 440 
1999 END 310 
2000 KREM 320 
2020 FOR À = 1 TO LEN (L2$) 
2030 N = ( ASC ( MID$ (L2$,A4,:1))) 325 
330 
2040 IF N = 13 THEN 2230 
2050 IF N = 32 THEN X = X + 6 GOTO 350 
2200 360 
2060 IF N - 64 > 26 OR N - 64 < 
1 THEN CALL — 1052% CALL - 370 
1052 RETURN 400 
2070 DRAW N - 64 AT X,Y 600 
2080 X = X + 6 600 
2200 IF X > 273 THEN X = O05Y = Y 600 
+ 9 600 
2210 IF Y > 193 THEN TEXT : HOME 600 
$ END 600 
2220 NEXT À 600 
2225 IF LEN (L2$) = 1 THEN RETURN 19 
2230 X = O!Y = Y + 995 IF Y > 183 THEN? LT 
TEXT ÿ HOME : END 5 
2250 RETURN 
1LOAD MENU 
LIST 
10 HOME $ VTAE 3:5D$ = CHRK$ (4) 10 
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INVERSE ? PRINT "PHEEUS"; 3 
NORMAL? FRINT " VOUS FROFOSE :" 
VTAB 8; GCOSUE 200; VTAE 8: 
CALL -— 958 
PRINT "1 CONSTRUIT 
EER VOS GRAPHISMES"; 
VTAB 11 
PRINT "2  ASSEMELE 
S ASSEMBLER (DRAH)"; 
VTAB 20 
PRINT " (ENTREZ LE NUMERO D 
E VOTRE CHOIX) ‘; 
GET Z$: PRINT 
IF Z$ = "1" THEN 
RUN CONSTRUIT" 
IF Z$ = "2" THEN FRINT D$ÿ" 
RUN ASSEMBELE" 
PRINT D$;"CATALOG " 
GET Z$ 
GOTO 10 
REM 
PRINT " 


FOUR CR 


FOUR LE 


FRINT D$};" 


4 FROGRAMMES 


VTAE 11 

PRINT " CONSTRUIT FOUR SAIS 
IR DES GRAPHISMES " 
FRINT 

FRINT " ASSEMBLE 

R UNE SHAPE TABLE " 
FRINT 

FRINT ‘ ESSAYE 

YER UNE TABLE # 
FRINT 

PRINT " TRANSFERT 
ER DES SOURCES SUR" 
FRINT 

PRINE U 
NE AUTRE DISQUETTE" 

VTAE 23 

FRINT 


FOUR CREE 


FOUR ESSA 


FOUR COFT 


<RETURN>"}; 

GET Z$% FRINT 

RETURN 
00 REM 
REM CREE LE 20/02/81 
REM 
REM DATES DE MISE À JOUR 
10 REM 
REM 15/03/82 
REM 18/03/82 


AD TRANSFERT 


ST 


REM KO MMM OK OKON DOC DK DICK DOC OC ICKC 
x x 
x TRANSFERT SOURCES x 
x x 
x CONSTRUIT x 
XAXMNNK XKKKMNK 


SPEED= 255% TEXT 


27 





20 

90 

100 
110 
115 
130 
180 


289 
290 


420 


460 
470 
490 


650 


POKE 33,40 

REM sesessssemememmmmianmux 
HOME  VTAB 12% INVERSE 

L2$ = "TRANSFERT GRAPHISMES" 


HTAB (40 - LEN (L2$)) / 2% PRINT 


L2$ 


FOR HAI = 1 TO 1300; NEXT WA 


I 


NORMAL $ VTAB 15% HTAB 10% INFUT 


MCOMBIEN ? "$CXX: DIM NM$(CX 
4) :NECCX%X ) 
REM 
REM =sumsessesmemeseseememz 
REM 
HOME 
INFUT "LONGUEUR ,HAUTEUR (MAX 
I) "ÿLOX,HAX 
FRINT 
NN = LOX x HAXINN = NN x CXX: 
FRINT "DIM = "$NNS GET ÀA$ 
DIM TEX(NN) 
FRINT 
D$ = CHK$ (4) 


FRINT CXX$" NOMS 3% "$ FOR T = 
1 TO CXX: INPUT NM$CT)$ NEXT T 


PRINT 
RL = 1% REM ENTREE DANS TEX 
FOR IN = 1 TO CXX 

FRINT D$$"OFEN "$NMS$SCIN) 
PRINT D$};"READ "NMS(IN) 
INPUT NECIN) 

FOR Z = 1 TO NECIN) 

INPUT TEX(RLIÈRL = RL + 1 
NEXT Z 

FRINT D$;"CLOSE "NM$CIN) 
NEXT IN 

FRINT 

FOR T = 1 TO CXX 

PRINT NM$&(T);" "SNBECT)$" E 
NTREES ," 

NEXT T 

FRINT 

FRINT "CHANGEZ LA DISQUETTE 
PUIS <RETURN> "ÿ5 GET A$ 
REM 

REM HOMME HOME HOKKKK OK CHECK IK KE 


x x 
x SAUVE LE TABLEAU x 
x x 


AC ACC CCC OC OC OC DC OC DC OC DC DC DC DC OC OC 
RL = 15D$ = CHR$ (4): PRINT 
FOR IN = 1 TO CX%X 
PRINT D$;"OFEN "$ÿNMS$CIN) 
FRINT D$;"WRITE ""$NM$ CIN) 
FRINT NECIN) 
FOR I = 1 TO NE(IN) 
FRINT TBX(RL)ISRL = KL + 1 
NEXT I 


FRINT_D$;"CLOSE "ÿNM$CIN) 
NEXT IN 


END 
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EAICISIGES 
ÉAHE- 
EH14- 
ÉA15- 
ET 
6O2S- 
6A3E- 
HSE 
544f- 
dE 
6454- 
6655 
6H6E- 
ÉHEE- 
EGrFE- 
GE 


6484 


BUBE- 


6434— 3 


ÉHYE- 
6H 
ÉEAE- 
É9E6- 
EHEE- 
FGC4- 
ÉGCE- 
64DE- 
GADE- 
EGER- 
GGES- 
EAFE- 
GAFE- 
61ñ4- 
EiHE- 
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La carte M/DOS 6502 à l'essai 





Nous en avions l'intention depuis longtemps, 
à force d'en entendre parler; nous avons 
enfin pu essayer la carte M/DOS 6502 
fabriquée par Micro Informatique Service 


(MIS), à Nice. 


au prix public de 2.800 F HT, la carte 
est compatible Apple, ITT 2020, 

systèmes intégrés IEF. Ses 
principales sont les 


Vendue 

M/DOS 6502 

Silex et 

caractéristiques 

suivantes 

. 16K supplémentaires de mémoire centrale; 

. un système d'exploitation de disquettes 
(SED) puissant; 

. une gestion par masques des entrées et des 
sorties; 

. précision numérique de 48 chiffres signi- 
ficatifs en traitement particulier; 

. adaptabilité à toutes les cartes 80 colon- 
nes compatibles Apple/ITT 2020; 

. compatibilité des programmes de 110K à 40 
méga-octets; 

. jusqu'à 16 méga-octets peuvent être gérés 
d'un seul tenant. 

La conception originale du SED et la gestion 

par masques des entrées et des sorties 

permettent de gagner beaucoup de temps dans 

la réalisation d'un programme. Nous l'avons 

constaté par nous-mêmes en mettant des 

programmes au point sur M/D0S 6502; cela nous 

a été confirmé par des SSCI qui utilisent 

aussi la carte. 


La gestion de fichier 


La gestion de fichier est très différente de 
celle du DOS, tout d'abord par la nature même 
des fichiers utilisés, dont on distingue 
trois types 

. les fichiers 
. les fichiers 
. les fichiers 


séquentiels relatifs; 
séquentiels indexés; 
multiclés. 


Une grande originalité du M/DOS 6502 est la 
gestion dynamique des fichiers. Il n'est pas 
besoin de définir une longueur d'enregis- 
trement précise. Quand un fichier de type FSI 
ou FM est créé, le système propose une 
longueur indicative de référence qui sert à 
sa gestion du fichier, et que l'utilisateur 
peut modifier à loisir. Le SED gère par 
lui-même la longueur d'enregistrement. 


Quel que soit 
enregistrement 


le type de fichier, lorsqu'un 
recherché a été trouvé, cet 
enregistrement est lu automatiquement. Les 
opérations possibles à partir de là 
correspondent aux ordres suivants 


NEXT = lit l'enregistrement suivant selon les 
clés ou le pointeur (s'il s'agit d'un fichier 
multiclés, l'utilisateur sélectionne la clé) 
BORNE - fixe une limite à la clé du fichier 
(FSR, FSI, FM) 

XTRACT = sélectionne un 
sélection d'une sous-zone 
FM) 

XINDEX = met dans le pointeur d'un FSR le 
numéro du prochain enregistrement qui sera 
créé par un ordre WRITE (FSR) 

WRITE - écriture d'un nouvel enregistrement 
(tous fichiers); refuse les homonymes 


sous-fichier par 
dans la clé (FSI, 


ADD - écriture d'un nouvel enregistrement 
(FSI, FM); accepte les homonymes 

UPDATE - mise à jour d'un enregistrement 
(tous fichiers) 

READ - lecture d'un enregistrement (tous 
fichiers) 

DELET - destruction d'un enregistrement (tous 
fichiers) 


Le M/DOS 6502 étant résident sur la carte, la 
place que le DOS occupe sur les disquettes 
(si l'on désire booter sans jongler avec les 
disquettes) est libérée. 


La gestion par masque des entrées/sorties 


Les fichiers séquentiels relatifs (FSR) sont 
semblables aux fichiers séquentiels du DOS. I1 s'agit là d'une idée très intéressante; 
seuls ceux qui n'ont jamais travaillé à 
Les fichiers séquentiels indexés (FSI) l'aide de masques peuvent ne pas réaliser 
possèdent une clé d'accès unique formée d'un l'apport de ceux-ci. Un des premiers 
ensemble de variables BASIC. Quand un programmes que j'ai écrits quand j'ai 
enregistrement est recherché, ou bien il est commencé à travailler sur Apple est un 
trouvé et tout va bien, où bien il ne l'est programme de gestion des menus et des entrées 
pas et un drapeau signale l'échec de la par masque sur l'écran. 
recherche. 
Pour définir un masque de saisie en M/DOS 
Les fichiers multiclés (FM) possèdent au 6502, il suffit (une fois l'éditeur de 
maximum 10 clés, chacune de celles-ci étant masques chargé) de. rentrer à l'écran les 
soit un ensemble de variables BASIC, soit un libellés exactement où on désire les voir 
pointeur de fichier relatif. apparaître. Pour cela, il suffit d'utiliser 
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les instructions de déplacement du curseur à 
l'écran (flèches, barre d'espacement, 
RETURN). Ensuite, les endroits où doivent 
être rentrées les données sont délimités avec 
les signes "<'" et ">". Le nom de la donnée 
correspondante est inscrit entre les deux, 
quand il y a suffisamment de place, à côté 
autrement. 


L'utilisation de mémoires de masse 


M/DOS 6502 a été conçu de façon que 
l'adaptation d'un programme à l'utilisation 


de mémoires de masse (disquette grande 
capacité, disque lourd) ne nécessite aucune 
modification. Il est possible d'écrire le 
programme de manière à le rendre 
immédiatement opérationnel sur divers 
supports de ce genre. C'est pourquoi MIS, 
ainsi que d'autres fabricants ou 
distributeurs, propose des systèmes M/DOS 


6502 multipostes. Christian Colmant en parle 
dans son article sur les mémoires de masse. 


Commentaires généraux 


Quelles sont les critiques que l'on peut 
émettre à l'égard de la carte M/DOS 6502 ? 


Inconvénient 1 

Le tout premier est que, et il s'agit là d'un 
défaut hélas bien français, la documentation 
est franchement mauvaise; quand au texte, il 
pourrait être plus clair. Les fautes de 
français courent après celles d'orthographe. 
Alors que le M/D0S 6502 s'adresse aux 
utilisateurs Apple, aucune référence n'est 
faite, lors de la présentation des divers 
types de fichiers, au vocabulaire du DOS ou 
aux notions courantes pour les Appleomanes. 


Inconvénient 2 


+ : 
méme piemmemeentenen 





Exemple de variables 
définies sous forme 
de tableau dans 

un fichier 


11557 

41 liste 
> Zone en sortie 

Servira pour renvoyer 

un message 


E/S 


Inconvénient 3 

Les masques d'entrées/sorties gèrent divers 
formats et/ou modes de représentation 
alphanumérique, entier, réel, gestion (x 
décimales). Il est regrettable qu'il n'y ait 
pas pour l'utilisateur la possibilité de 
définir deux ou trois formats complémentaires 
dont il a souvent besoin. Par exemple, il est 
utile en gestion d'avoir le format 
XXX.XXX.XXX,XX dans lequel les grandes sommes 


sont rendues lisibles par le découpage en 
tranches de trois chiffres. Note : un 
contrôle interzone conditionnel est annoncé 


pour la release XI. 


Inconvénient À 

La carte M/D0S 6502 n'est pas compatible avec 
les cartes langage possédant la ROM F8, ce 
qui est gênant pour les utilisateurs de 
Pascal ou ceux qui ne peuvent se satisfaire 
des maigres 18K disponibles avec Visicalc 
313. MIS a, parait-il, l'intention de 
modifier légèrement sa carte de façon à 
rendre la carte langage prioritaire, ce qui 
éliminera ce problème. 


Inconvénient 5 

La carte actuelle consomme trop et, lorsque 
nous avons voulu l'utiliser avec le lecteur 
1M d'IEF (voir l'article sur les mémoires de 
masse), nous n'arrivions plus à booter. Il a 
fallu changer des ROMs de l'Apple et y 
installer de plus puissantes pour enfin 
pouvoir travailler. Il est vrai que, si 
l'Apple comporte huit slots, cela ne veut pas 
dire que l'appareil fonctionne si on les 
utilise tous 


quels sont les aspects 
souligner ? Nous 


Après ces critiques, 
positifs que nous pouvons 


La place que l'on est censé gagner sur la reprenons ici ce qui nous a particulièrement 
disquette en n'y chargeant pas de SED est intéressés sans énumérer tous les avantages 
reperdue par les fichiers que M/D0S 6502 doit annoncés au début de cet article. Nous 
mettre en place pour effectuer sa gestion n'avons pas eu l'occasion d'utiliser M/DOS 
dynamique de la mémoire. En effet, la gestion 6502 en multi-poste et ne pouvons donc faire 
de fichier est prévue pour des fichiers de 16 aucun commentaire sur ses performances à cet 
M-octets et 64K enregistrements. égard. 
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Avantage 1 
Hors le 
gestion par 


problème soulevé ci-dessus, la 

masque des entrées/sorties gagne 
beaucoup de temps lors de la création d'un 
programme . Les fonctions READ, UPDATE et 
WRITE, en gérant les informations un écran à 
la fois, évitent de pénibles séries 
d'instructions de lecture et écriture, tout 
en compactant énormément les programmes. 


Avantage 2 
Les fichiers multiclés sont particulièrement 
utiles et épargnent l'écriture de routines de 


recherche d'enregistrements par clés, tout en 
fonctionnant de f'açon très performante. 
Avantage 3 

L'équipe qui a mis le M/D0S 6502 au point est 
une, équipe sérieuse. Nous avons eu l'occasion 
de discuter avec des personnes qui avaient eu 
des difficultés avec la carte intiale; il ont 
bénéficié d'un excellent service après-vente, 
et les problèmes ont été résolus à la 
satisfaction générale. 


Conclusion 


EM gérant la structure des données et des E/S 


écran et imprimante indépendamment de la 
structure du programme BASIC, ce système 
permet une plus grande adaptabilité des 
applications sans modification du code en 
BASIC. 

Notre conciusion générale est tout à fait 
favorable. La principale critique que l'on 


pouvait adresser sur le fond était le manque 
de transportabilité un programme écrit en 
M/DOS 6502 ne tourne que sur Apple et devra 
donc être réécrit si l'on change de matériel. 
Cet argument risque de perdre de son poids, 
puisque MIS étudie actuellement la 
réalisation de M/DOS 6502 sur 8088, 8086, 
sous MS/DOS, CP/M86 et sur 68000! 


Remarques de la société MIS 


1. lhe nouvelle documentation est en cours de 
réalisation. 

2. Un contrôle interzone conditionnel est an- 
noncé pour la release XI. 

3. Des efforts sont consacrés actuellement à 
l'amélioration de la carte, afin qu'il n'y 
ait plus de problèmes de puissance. 


Un cataloque général 


ii 5 Cor 





Dans les précédents 


articles, nous avons 
placé. dans un seul fichier les répertoires de 
tous nos disques Pascal. Chaque ligne 
contient le nom du fichier et sa date, le 
genre et le type de programme, le nom du 
disque et le numéro de la boîte où il est 
rangé. 
Nous allons profiter de ces éléments pour 
effectuer, à l'écran ou sur l'imprimante, des 
sélections permettant de retrouver un fichier 
par son nom bien sûr, mais aussi de lister 
les fichiers sélectionnés sur un type et sur 
un genre déterminés, ou encore d'éditer un 


catalogue par numéro de boîte ou par disque. 


Le programme précédemment écrit (cf. Pom's 2 


et 3) reste valable; seules les procédures 
TRI et LIRE, qui étaient indiquées à 
améliorer, sont à remplacer par celles qui 


paraissent aujourd'hui. 


La procédure LIRE 
différentes options ; 


propose maintenant 


(0) : édition complète du catalogue comme 
précédemment 
(1) : édition du catalogue sélectionné en 


fonction d'un type et d'un genre 
(2) : édition du catalogue par nom de disque 
ou de fichier 


(3) : édition par numéro de boîte ou de 
fichier. 
Le choix 
demandé 
booléen 
OUI), le 
de l'option 
édition d'un 
de quelques 


étant fait, et le programme ayant 
s'il faut une impression ou non, (le 
IMP prenant la valeur de la fonction 
CASE distribue la tâche en fonction 
demandée. Si IMP est vrai, 
trait sur l'imprimante, sortie 
lignes de papier et demande pour 


une autre recherche, le booléen QUIT (qui 
prend la valeur de NOT OUI) permettant 
l'interruption de la boucle globale WHILE NOT 
QUIT. 


Les différentes procédures de sélection sont 


très simples 


- demande de précision dans le critère 

- choix du critère 

- sortie de la procédure par un EXIT si le 
critère est nul 

- sinon, affichage à l'écran ou sur l'im- 
primante des facteurs de sélection et lec- 
ture ligne par ligne du fichier par une 
boucle FOR I := 1 TO NUMCAT-1 DO. 


La boucle effectue une comparaison avec les 
valeurs de sélection; quand la fiche est 
bonne, elle est imprimée si IMP est vrai, 
sinon affichée à l'écran. Le paramètre I sert 
à indiquer le numéro du fichier. 
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Quelques remarques 


- dans TRIGT : le type et le genre sont des 
lettres de A à Y entrées lors de la création 
de la fiche; en effet la valeur Z sert ici 
à supprimer le facteur de sélection, c'est à 
dire que genre A type Z signifie n'importe 
quel type de genre A. 


- dans TRINOM : il est possible, si l'on 
utilise des noms de fichiers très structurés 
(par exemple, quand tous les programmes 
graphiques comportent les lettres GR et les 
programmes utilitaires UT) de remplacer 
l'égalité de la boucle FOR par l'utilisation 
de la fonction POS du Pascal. Dans ce cas, 


(GARDEA. NOMFILE=ST) 


devient  (POS(ST, GARDE A.NOMFILE)}X»>0). On peut 
trouver de cette façon tous les noms ayant 
une syllabe valide au lieu d'une égalité 
stricte. 





{(U/G) EXTRPOMS. TEXT (EC) 1982 M. CRIMONT 31/03/82 
(4 =====POUR POM’ S=====PROGRAMME DE CATALOGUE GENERAL  #) 


KDE HO DCIE MCE CM DICK DCE DOC DC OC DCDCKEDCOCIEDCEDCC HONCKCOKC 
CRÉES ENPE RE TNT x) 
CR DCE KDE DCE DC DCE DCE DEC DDC DC OC DC CO OK HONCKOX 


PROCEDURE TRI; 
VAR I $ INTEGER ; 
BEGIN 
MESSAGE (3, EDITION DU CATALOGUE GENERAL”); 
IF IMF THEN 
BEGIN 
MESSAGE(10,” KXXXX SUR L’'IMPRIMANTE XXXXX ”) 
WRITELN(FAFIER, EDITION DU CATALOGUE GENERAL :55) 
HRITELN(FAFIER) END; 
TITRE; 
FOR Ziz=i TO NUMCAT-1 DO 
EEGIN 
GET (GARDE ) ; 
IF IMF THEN IMPRIMECI,GARDEA) ELSE AFFICHE(CI, GARDE) 


….. + 


END - 
END} | 
PROCEDURE TRIGT}; 
VAR I :INTEGER} 
G; TNUL ?CHAR; 
BEGIN 
NULt=/2Z"} 


MESSAGE(S, CODE DE ‘’’A’° À ‘’’Y’’ OÙ ‘’’Z’° FOUR TOUS"); 
MESSAGE(7,’CODE GENRE $’)$G:=PRENCAR(C'A’,,°Z°," ‘’1); 
IF G=’ ’ THEN EXIT(TRIGT)}; 

MESSAGE(9,'’CODE TYFE $/)$T?:=PRENCAR(C’'4’,,.°2Z",° 1); 
IF T=’ ’ THEN EXIT(TRIGT); 
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GOTOXY(0,3) ;HRITE(EFE) ÿ 
MESSAGE(3, CATALOGUE TRIE SUR ’); 
IF G<>NUL THEN HRITE(’GENRE!’,6G); 
IF (G<>NUL) AND (T<>NUL) THEN WRITE(’ & ’); 
IF T<>NUL THEN HRITE(’TYPE 5°,T);$ 
IF IMF THEN 
BEGIN 
MESSAGE(10,” XXXXX SUR L'’'IMPRIMANTE KXXXX ’ )}; 
WRITE(PAPIER,’ ‘’315,’EDITION DU CATALOGUE TRIE SUR ‘); 
IF G<>NUL THEN WRITE(PAPFIER, ‘GENRE: ’,G); 
IF (G<>NUL) AND (T<>’Z’) THEN WRITE(FAFIER,’ & ‘’)} 
IF T<>NUL THEN WRITE(PAPIER, ‘TYPES’ ,T) $WRITELN(PAPFIER) ; 
END; 
| TITRE } 
FOR Ii=1 TO NUMCAT-1 DO 
EEGIN 
GET (GARDE ) ; 
IF ((GARDEA,GENREL1]=G) OR CG=NUL) )AND((GARDEA, GENREL2J2T)OR(T2=NUL ) ) 
es IF IMF THEN IMPRIME(CI,GARDEA) ELSE AFFICHE(I, GARDE) 
:N 
END; 


FROCEDURE TRINOM; 
VAR T #INTEGER} 
OF CHAR; 

ST STRING; 


MESSAGE(S,’<1> NOM DE FICHIER’ ); 
MESSAGE(6,‘<2> NOM DE DISQUE‘); 
MESSAGE(7, 'OFTION ?°);O0OF:=FRENCAR(C’1°,°2°1); 
MESSAGE(9,’NOM DU ’)$IF OF=’1’ THEN WHRITE(’FICHIER:’) ELSE WRITE 
C'DISQUE:’); IF OF=’1’ THEN 1Ii=15 ELSE I!=7} 
CKX$U-X) 
PRENCHAINE(I,(C'/A’,,/2Z°,/0",.°9",",."1),ST); 
CX$SU+X) 
IF ST=’’ THEN EXIT(TRINOM); 
GOTOXY(0,3) ;HRITE(EFE) ; 
MESSAGE (3, CATALOGUE DU ‘); 
IF OF=’1" THEN HRITE(’FICHIER:’,ST) 
ELSE WRITE(’DISQUE:’,ST); 
ZF IMP:THEN 
BEGIN 
MESSAGE(10,° XXXXX SUR L'’'IMPRIMANTE XXXXX°); 
WHRITE(FAFIER,’ ‘315,'’CATALOGUE DU ‘’); 
IF OP=’1' THEN WRITE(PAFIER, ‘FICHIER: ’,ST) 
| ELSE WRITE(FAFIER, ‘DISQUE ’ , ST) $HRITELN(FAFIER) ; 
| END; 
TITRE ; 
FOR Tiz1 TO NUMCAT-1 DO 
EEGIN 
GET (GARDE ) ; 
| IF ((OPF=’1’) AND (GARDE ,NOMFILE=ST )) 
OR ((0F=’2’) AND (GARDE ,NOMDISK=ST)) THEN 
IF IMF THEN IMPRIME(I,GARDEA) ELSE AFFICHE(I, GARDE) 
END 
| END; 
| FROCEDURE TRINUM; 
| VAR I,N $INTEGER; 
OF CHAR; 
BEGIN 
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Nt=0; 
MESSAGE(5,/<1> NUMERO DU FICHIER’); 
MESSAGE(6,/<2> NUMERO DE EOITE’)$ 
MESSAGE(7,'’OPFTION ?’);0F:=FRENCAR(C’1’,’2°1)}; 
REFEAT 
MESSAGE(9, NUMERO ‘’);$ 
IF OF=/1’ THEN WRITE(’DU FICHIER:’) ELSE WRITE(’DE BOITE: "’)} 
ENTIER(4,N) 
UNTIL (NENUMCAT ) ; 
IF N=0 THEN EXIT(TRINUM) ; 
GOTOXY(0,3) $HRITE(EFE) }$ 
IF OF=’/1’ THEN 
BEGIN 
TITRE; 
SEEK (GARDE ,N) GET (GARDE) $AFFICHE(CN, GARDE) 
END ELSE 
ÉEGIN 
MESSAGE(3,'’CONTENU DE LA BOITE NUMERO ’ ) $WRITE(N) ; 
IF IMF THEN 
BEGIN 
MESSAGE(10,” XXXXX SUR L'’'IMFRIMANTE XXXXX”); 
WRITE(FAFIER,’ /:15,'/CONTENU DE LA EOITE NUMERO ’,N); 
WRITELN(PAFIER) ; 
END; 
TITRE? 
FOR Iiz=z1 TO NUMCAT-1 DO 
EEGIN 
GET (GARDE ) ; 
IF GARDEA,NUMEOITEZ=N THEN 
IF IMF THEN IMFRIME(CI,GARDEA) ELSE AFFICHE(T, GARDES) 


FROCEDURE LIRE; 
VAR CHOIX CHAR; 
BEGIN 
QUIT :=FALSE ; 
GOTOXY(0,2) ;HRITE(EFE) ; 
MESSAGE(3,’LE CATALOGUE DOIT ETRE DANS LE DRIVE 2°); 
WHILE NOT QUIT DO 
BEGIN 
GOTOXY(0,4) $WHRITE(EFE) ; NUMLIGNE 6; 
MESSAGE(4,'’<0>#EDITION COMPLETE”); 
MESSAGE(5,’/<1>#EDITE FAR GENRE & TYPE’); 
MESSAGE(6,’/<2>t#EDITE FAR NOM (DISQUE OÙ FICHIER) ‘ ); 
MESSAGE(7,/<3>#EDITE FAR NUMERO (BOITE OU FICHIER) ‘); 
HRITE(INV);IMFi=FALSE ; 
MESSAGE(9,'/OFTION ?’) CHOIX: =FRENCAR(C’0’,,73°1); 
MESSAGE(9, VOULEZ-VOUS IMPRIMER ? ‘);IMF$=OUT; 
WRITE (NORM) ; 
IF IMF THEN TRAIT; 
GOTOXY (0,3) ;HRITE(EFE) ; t 
SEEK (GARDE, 1) ; 
CASE CHOIX OF 
‘0’7:TRI; 
‘1'TRIGT; 
‘2! TRINOM; 
‘3’ :TRINUM 
END; 
IF IMPF THEN TRAITFIN; 
MESSAGE(22,/UNE AUTRE RECHERCHE (O/N) ? ‘)$QUIT:=NOT OUT 
END 
END; 
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Ce programme, baptisé &LOAD, effectue un valeur doit être inférieure à 512, pour ne 
chargement rapide de tout programme en Pas écraser la pile ni la page zéro. Si le 
binaire, y compris les images graphiques: nom du fichier est donné entre guillemets, 
ceci est rendu possible par l'appel direct de les blancs sont significatifs, sauf s'il sont 
la RWTS et le chargement direct de chaque placés à droite. 

secteur à son adresse définitive (sauf le 

premier et le dernier, pour ne pas abîmer" Dans cette version, la routine se dissimule 
l'environnement). Grâce à ce programme, une entre le DOS et ses buffers. Ces buffers sont 
image graphique haute résolution est chargée descendus de deux pages, ce qui peut être 


en trois secondes, et même moins si le moteur ennuyeux si on utilise &LOAD dans un 
est déjà lancé. programme qui positionne HIMEM très haut en 
memoire. 


Cette routine requiert 48K de mémoire, le DOS 
3.3 à son adresse habituelle et l'Applesoft Une autre solution consiste à la dissimuler 
en ROM. Elle peut être appelée sous dans le premier buffer du DOS en $9AA6, ce 
Applesoft, à partir d'un programme ou en mode qui permet, si l'on ne touche pas à MAXFILES, 
direct. Elle ne fonctionne ni en Integer, ni un fonctionnement normal de la plupart des 
en mode moniteur, car la commande "&" n'est Programmes. Il est en effet rare que l'on ait 
pas interprétée dans ces deux cas. Enfin, plus de deux fichiers ouverts simultanément. 
nous rappellons qu'elle ne s'applique qu'aux La procédure à suivre est alors la suivante 
fichiers de type binaire. remplacer les lignes 68 à 70 par RTS, et 
changer 1l'ORG de la ligne 74 de $9B00 à 
Elle ne détruit aucune adresse mémoire de la $9AA6. 
page O0, sauf bien sûr celles utilisées par 


RWTS. Elle nécessite un seul pointeur page 0, Le programme a été écrit à l'aide de 

qui est d'ailleurs restauré à la fin, et des l'assembleur BIG MAC, qui est à mon avis 

adresses inutilisées dans le DOS. intrinsèquement supérieur au LISA 2.5. Il 
autorise en particulier l'assemblage 

La syntaxe est la suivante : conditionnel et l'utilisation de minuscules 

&nomfichier[,adresse de chargement] dans les commentaires. 

ou bien 

&variablealphal, adresse de chargement] Note de la rédaction : nous avons grâce 
&LOAD chargé en 9 secondes au lieu de 30 un 

L'adresse de chargement est optionnelle; elle fichier de 144 secteurs. Question : les 

peut être un nombre où une variable adresses AA60O (longueur de fichier) et AA72 

numérique, mais elle doit être décimale. Sa (début) ne sont plus valables. Où les 


trouve-t-on 7? 


IBRAIRIE LA NACELLE 


INFORMATIQUE e ÉLECTRONIQUE + AUTOMATISME e MICROPROCESSEUR 


TOUS OUVRAGES ET ABONNEMENTS 
FRANÇAIS ET ETRANGERS 


Tous les ouvrages français ou étrangers signalés dans cette revue peuvent être obtenus ou commandés à La Nacelle 


2, rue Campagne-Première 75014 PARIS - Tél. 322 56 46 


Métro Raspail - Parking à la hauteur du 120 bd du Montparnasse 
ouvert tous les jours lundi compris, sans interruption de 9 h 30 à 18 h 50, samedi fermeture à 17 h 50. 
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EEE 





1 ORG $9000 
2 x 
3 x 
4 NOK HIDE DC DCE DC DDC OCDE DC DICK DCE DC 
o x 
6 x &ELOAD x 
7 x x 
8 x Jecques Tran-Van x 
9 x x 
10 COX HOME COCOON DC OC DC DCKDC OK DDC DC OC DCE CC 
11 x 
12 ‘ | 28L0AD CHARGE 09.489000 
13 x 18/04/82 éapadèr ; 
* 
- x =9000.922A 
16 FTR EQU $1E to numaNmre 
17 START EQU $1E (ie: 0 7 80 28 91 90 0e ve 
18 VALTYFE EQU #11 Li gere 2 04 A7 8 16 DD NC LA 
19 TRAF EQU #48 di--t-d ii 4-41 
20 LINUM EQU $50 pare fu LE SAT) 
TR ue SAN 
: - B9 48 20 7B DD 24 11 30 
23 TXTFTR  EQU $E68 UE me 208 EEE 
25 ERHANOL EQU  $A6DS HENGHBENEN 
M98- CB 61 1E 85 1F 68 95 1€ 
26  CLNEUFF EQU $A7D4 LENIRSNETASR 
27 ERRCODE EQU $#AASC RER ETEREEE 
28 NAME EQU #$AA75 NC. 07 00 FA 12 20 BE DE 20 
29 LENGTH  EQU $AAAE ROME TEERT 
30  SAVI EQU  $AAAC (MENT A? A1 00 EC.87 79 6e vC 
31  SAVZ EQU  $AAAD EE EEE ET 
32  TEMF EQU $AAAE MON DIF ES NE 00 09 n9 83 
33 FLAG EQU  $AAAF SIC RRNTeNTTe 
34  ADRFLAG EQU $AABO PAZ. AG AE MA D 09 89 op €0 
35 BUFFER  EQU $B3BE HONNENN UNE 
36 TAMFON  EQU $E4BE MS 8 Die me 10 HE 
37  RNTS EQU $B7B5 RETEEREREE 
38  IOE EQU $B87E8 MU NNNRUN ES 
39 VOLUME  EQU  IOE+3 MINSDEUNER 
40  TRACK EQU IOE+4 snHonwenamn 
41 SECTOR  EQU IO0E+5 LU CI EE ET 
42 EUFADR  EQU IOE+a AUANZ AE AE PA EE ER 07 a 19 
43  COMMAND QU IOE+12 MONT 08 A8 2 En 9e 20 où nc 
44  EASCERR EQU $D412 QUE. AD AN 00 EZ PC 20 07 pc 
45  FRMNUM  EQU  $DD67 JDN: 88 FC AO DD 83 80 ED 67 
46 FRMEUL  EQU $DD7E (MEN DO EC 7 AC 19 PC 80 De 
47 CHKCOM  EQU $DEBE NFR DD D 07 OÙ GE mn 47 07 
49  GETADR  EQU $E752 ÉHRRRERERR 
9218- BB 8D FO 87 8C F1 87 
50 SETVID EQU $FE93 + --4. 1e hetitis 
51 x LES : 
D2 x 
9000 A9 00 93 LDA +<ENTREE $fpositionne le vecteur 
9002; 8D F6 03 54 STA AMFERVT+1 jd’ampersand 
9005: A9 9B 59 LDA #>ENTREE 
9007: 8D F7 03 56 STA AMFERVT+2 
900A! A9 4C 97 LDA +##$4C ; ‘ JMF'’ 
900C; 8D F5 03 58 STA  AMFERVT 
900F?; A2 00 59 LDX #0 
9011: ED 26 90 60 MOVEFGM LDA MOVEADK,X jcache le pan entre 
9014: 9D 00 9E 61 STA ENTREE, X le dos et ses buffers 
9017: E8 62 INX 
9018: D0 F7 63 ENE MOVEFCGM 
901A: BD 2E 91 64 MOVEFGM1 LDA MOVEADR+256,X 
901D; 9D 00 9C 65 STA ENTREE+256,X 
9020: E8 66 INX 
36 
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9021: 
9023: 
9025: 
9028: 


D0 
A9 
8D 
4c 


F7 
A 
01 
D4 


9D 
A7 


AA 


AA 
00 


E7 
00 


AÂ 


00 


DD 


9c 
D4 


DF 


9c 
AA 


x 
MOVEADR 
x 


x 
ENTREE 


INFLOOF 


ENDNAME 


x 
NOCONST 


x 
STRING 


SYNTAX 


NONUL 


MOVEFGM1 
+$97A 
$9D01 
CLNEUFF 


x 
$9E00 


FTR 
SAVI 
FTR+1 
SAV2 
CHARGOT 
NOCONST 
+é 

$c1 

#0 
VOLUME 
CHARGET 
| LR 
ENDNAME. 
+$60 
NAME , Y 


+30 
INFLOOF 
SYNTAX 
+$EF 
$c1 
CHARGET 
+0 
ENDSTOR 


TXTFTR 
TXTFTR+1 


FRMEVL 
VALTYPE 
STRING 
+$A3 
RESTORE 
EASCERR 


TXTPFTR+1 


TXTPTR 
FTRGET 
PTR 
PTR+1 
+0 
(FTR),Y 
NONUL 
#11 
ERROR 
LENGTH 


CFTR),Y 


Pom's n° 4 


fdecale les buffers des 2 
tet les reconstruit 


peaaes 


sauve les memoires paae 0 
$jutilisees par le pan 


#titre entre apostrophes ? 


fmodifie CHARGET pour qu’elle 
faccepte les espaces 


$volume prevu 
flit le caractere suivant 


ffin du titre 

fleve le bit de poids fort 
sauve le non dans NAME 
fpas plus de 30 caracteres 
fsi trop lona, ‘’SYNTAX ERROR’ 


$restaure CHARGET 


$ftermine par des espaces 
fretour au BASIC 


fsauve le pointeur de CHARGET 


fevalue l'expression 

fcontrole le type de la variable 
$si < 0, elphanumerique 

code de ’TYFE MISMATCH’ 
faffichsege du message d'erreur 


$recupere le pointeur initial 


$ftrouve le pointeur de varisble 
île rence dans PFTR 


$lonqueur du nom 
le string existe 


fretour au BASIC, et ’SYNTAX ERROR'’ 


fpointeur vers les valeurs 
fdens PTR 
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en 


9E6E; El 


9E73% 85 


AA 


AA 


AA 


E7 
E7 
E7 
9c 
E7 
9c 


AA 
AA 


AA 


B3 


GTS] 


B3 


B3 


STORE 


ENDSTOR 
SFACE 


x 
SEARCH 


NEXTSCT 


NEXTFIL 


TESTNOM 


FINDFIL 


CFTR)D,Y 
FTR+1 
FTR 
#0 
(FTR),Y tsauve le titre dans NAME 
+580 
NAME , Y 
LENGTH 
STORE 
gi" ‘complete le nom par des espaces 
NAME , Y 
+30 
SPACE 
ADRFLAG iflsa d'adresse « 0 
RESTORE trestaure le pointeur(si erreur) 
CHARGOT ty a-t-il autre chose derriere ? 
SEARCH #nort 
CHKCOM tslors il faut une viraule ! 
FRMNUM tevalue la formule qui suit 
GETADR trange l'adresse dans LINUM 
LINUM+1 si sdresse de charaement < $200 
+2 talors erreur !! 
SYNTAX 
ADKFLAG ‘flsa d'adresse > 0 
+1 commande lecture pour la RATS 
COMMAND 
+$10 
SECTOR 
#+$11 
TRACK 
SETEUF *BEUFFER pris comme buffer 
SECTOR fsecteur suivant 
NOFILE $fin de la directory 
READSCT flecture du secteur 
+$EE 
TEMF 
TEMF 
+35 
tpointe vers le prochain titre 
TEMF 
+3 
NEXTSCT tfin du secteur 
+0 
EUFFER , Y 
NOFILE #fin de la directory 
NAME , X tcompare le nom & NAME 
NEXTFIL 
+30 
TESTNOM tfin du nom ? 
EUFFER-31,Y jquel est son type 7? 
+4 tbinsaire(4 ou 84) ? 
FINDFIL foui bon type 
+13 tcode de ’FILE TYPE MISMATCH’ 
ERROR 
TEMF trecupere le pointeur de nom 
EUFFER-2,Y 
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2 





9BFE?: 8D ED E7 196 STA SECTOR + du secteur de la TSL 
9BFE: E9 E8 E3 197 LDA EUFFER-3,Y ;# de la piste de la TSL 
9C01$ 30 C7 198 EMI NEXTFIL fsi efface, le saute 
9003: 8D EC B7 199 STA TKACK 
9C06; DO 0E 200 ENE LOADFGM $fchearger le programme 
9C08$ A2 06 201 NOFILE LDX #6 fcode de ‘FILE NOT FOUND'’ 
9C0A$ 8E 5C AA 202 ERROK STX ERRCODE frange le code de l’erreur 
9000: 20 FS 9C 203 UJSR RESTORE frestaure les memoires page 0 
9C10$ 20 93 FE 204 JSK SETVID ?PFR#0 
90135 4C D5 A6 205 JMF.  ERHANDL #saut 23 la routine d'erreur du DOS 
206 x 
9C16: 8D AF AA 207 LOADFGM STA FLAG finitiselisstion de FLAG(<> 0) 
90193 20 CB 9C 208 NEXTSL JSR KREADSCT lit la TSL dans BUFFER 
9C1C$ A2 0C 209 LDX #+#0C #pointeur dans la TSL 
9C1E$ ÀS 1E 210 LDA START $recupere l'adresse du buffer, 
9C20;% A4 1F 211 LDY START+1 fsi c'est la 2eme TSL 
s 9022: 20 EE 9C 212 JSR LOCBUF 
9025: AD AF AA 213 LDA FLAG 
9C28: F0 03 214 EEQ  INFSECT si = 0, lit le secteur 
9C2A$ 20 EA 9C 215 JSR  SETTAMF ? TAMFON est pris comme buffer 
9C2D: 20 EE 9C 216 INFSECT JSR RKREADFGHM $lecture du secteur du pan 
9030? AD AF AA 217 LDA FLAG 
9C33; F0 40 218 ÉEQ NEXTONE 
9C35$% 2C E0 AA 219 EIT ADRFLAG $fchargement 23 une autre adresse ? 
9C38: 30 0À 220 EMI NOADK $non 
9C3At A5 50 221 LDA LINUM 
9C3C: 6D BE E4 222 STA TAMFON 
9C3F: ÀS 51 223 LDA LINUM+1 
9c41: 8D EC E4 224 STA TAMFON+1 
9c44; 38 225 NOADR SEC 
9C045: AD BE E4 226 LDA TAMFON 
9C48; E9 04 227 SEC +4 calcule les adresses 
9C4Ai 85 1E 228 STA START ÿde debut de programme; 
9C4C$ 8D F0 E7 229 STA EUFADK et de chargement 
9C4F$ AD EC E4 230 LDA TAMFON+1 
9C52$ E9 00 231 SEC #0 
9C54: 95 1F 232 STA START+1 
9C56: 8D F1 E7 233 STA EUFADR+1 
9059 À9 04 234 LDA +4 depart du ‘move’ du ier 
9C5B; 8D DA 9C 235 STA DEFLACE+1 secteur du pan 
9C5E: 18 236 CEE 
9C5F$ 6D BD E4 237 ADC TAMFON+2 #suamente la lonaueur de 4 
9C62: 8D AE AA 238 STA LENGTH flonaueur du dernier secteur 
9C65: A9 00 239 LDA +0 ffin du ‘move’ 
9C67: 8D E2 9C 240 STA ENDMOVE+1 
9CéAi 8D ÀAF AA 241 STA FLAG annule le flza 
9C6Dt AD C9 E3 242 LDA EUFFER+14 jun autre secteur 8 lire ? 
90705 F0 22 243 EEQ LAST $fc’'est le dernier 
24% x 
9C72: 20 D9 9C 245 JSR DEFLACE deplace le secteur 
90754 AE AE AÀ 246 NEXTONE LDX TEMF $frecupere le pointeur dans 13 TSL 
9078: EE Fi B7 247 INC EUFADR+1 fbuffer suivant 
9C7B; Eé 1F 248 INC START+1 fincremente l'adresse destination 
9C7D: E8 249 INX $fsecteur suivant 
L 9C07E$ E0 FE 250 CPX +$FE $fdernier de cette TSL ? 
9Cc80t 60 1D 251 ECS ENDTSL foui 
9C82: BD ED E3 252 LDA EUFFER+2,X jy a-t-il une suite ? 
985: DO Àé 253 ENE  INPSECT 
254 x 
9C875 20 EÀA 9C 255 LASTSCT JSR SETTAMF $TAMFON comme buffer 
9C8A: 20 BB 9C 256 JSR KREADFCGHM flit le dernier secteur du pan 
9C8D: A9 00 257 LDA #0 
9c8F: 85 48 258 STA TRAF Voir Call Apple janvier 82 
9c91: 8D DA 9C 259 STA DEFLACE+1 deplace 2 partir du debut 
9094; AD AE AA 260 LAST LDA LENGTH 
39 
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SE 


56 


9c 


E4 


B7 
67 


AA 
AA 


261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
rA A 
+ 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 


--END ASSEMELY-- 


ERKORS? 0 


555 EYTES 


40 


Re —— 


x 
ENDTSL 


x 
READFGM 


READSCT 


x 
DEFLACE 
MOVE 
ENDMOVE 
NOERROR 
x 
SETEUF 
SETTAMF 
x 


COMMUN 


x 
LOCEUF 


x 
RESTORE 


ENDMOVE+1 
DEFLACE 
RESTORE 


EUFFER+1 
LASTSCT 
READFGM 
EUFFER+2 
SECTOR 
START+1 
SETBUF 
EUFFER+1 
TRACK 
NEXTSL 


EUFFER , X 
TRACK 


EUFFER ; X 
SECTOR 
TEMF 
#>10E 
#+<I0E 
RWTS 
NOERROR 


+0 
TAMPON, Y 
(START), Y 


+00 
MOVE 


#>EUFFER 
COMMUN 
#> TAMPON 


#+<EUFFER 
EUF ADR 
BUFADR+1 


SAVI 
FTK 
SAV2 
FTR+1 
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?’lonqueur’ du dernier secteur 
$deplacement 


fretour au EASIC 

t# de secteur pour la TSL suivante 
pes de 2nde TSL 

lit le dernier secteur de la TSL 
+ de secteur de la 2nde TSL 
buffer suivant(pour la suite) 


ls 2nde TSL est lue dans EUFFER 
#4 de piste de la 2nde TSL 


$piste 


secteur 

sauve le pointeur 
taedresse de 1’10E 

#( pour un 48K ) 

‘pas d’erreur #8 la lecture 
tcode de ‘1/0 ERKOR’ 
$fretour au BASIC 

t’poke’ les valeurs 


ide depart et de fin 
ide cette routine 


*EUFFER pris comme buffer 
TAMPON pris comme buffer 
*EUFFER et TAMFON consecutifs 


tpositionne le pointeur de buffer 


trestsaure les memoires page 0 
futilisees par le pan 


Les codes ASCII épluchés 





Certains 
copier 
revues 
mais 


de nos lécteurs nous ont reproché de 
des articles déjà parus dans des 
étrangères. La critique est aisée, 
l'art est difficile ! De par leur 
nombre, leur périodicité et leur antériorité, 
les revues américaines ont accumulé un nombre 
impressionnant d'articles. ET serait 
assurément possible à un collectionneur 
assidu des Softalk, Call-Apple, Nibble, 
Compute et autres revues de trouver pour la 
majorité des articles parus dans Pom's un 
article déjà publié traitant du même sujet ou 
ayant des ressemblances. 


Devrions-nous nous abstenir de publier des 
articles sur le DOS, des comparaisons entre 
les systèmes de traitements de texte, une 
initiation à l'assembleur, etc... sous 
prétexte que des choses semblables ont été 
vues dans des revues étrangères ? Outre que 
nos lecteurs ne lisent pas tous l'anglais 
couramment, on n'a pas toujours le loisir 
d'avaler (et de digérer ...) une dizaine de 
revues par mois. Nous tenons à vous offrir 
une revue intéressante, vivante et utile, 
avec le maximum d'articles originaux. Mais, 
lorsque nous trouvons des choses 
intéressantes chez les autres, pourquoi ne 
pas vous en faire profiter ? C'est le cas 
ici, puisque les tableaux 1 à 4 nous ont été 
inspirés par un article de la revue Micro, 
the 6502 and 6809 Journal, du mois d'octobre 
1981. 

Nous espérons que ces tableaux vous aideront 


et qu'ils seront en bonne place dans votre 


aide-mémoire. Afin que leur utilisation vous 
soit plus facile, voici ci-dessous les 
explications concernant chaque colonne 

* HEXA contient tous les nombres 
hexadécimaux de $00 à $FF. 

* DECIMAL traduction décimale du nombre 
hexadécimal. 

* BINAIRE : octet de 8 bits représentatif du 
nombre en hexa. 

* DEC*256 valeur décimale de l'octet haut 


d'un nombre ou d'une adresse 16 bits. 

#* ASCII signe ASCII attribué au nombre 
hexa correspondant. Ce code étant exprimé en 
7 bits, les signes sur les valeurs de $00 à 
$7F sont identiques à ceux des valeurs de $80 
à $FF. 


* ECRAN le manuel de référence donne en 
page 15 la correspondance exacte entre la 
valeur hexa et sa représentation sur l'écran. 


Les lettres I, F et N représentent les modes 


Inverse, Flash et Normal. Les valeur non 
affichées à l'écran sont remplacés par des 
tirets. 

* TOUCHE indique la touche à appuyer afin 
d'obtenir la valeur correspondante. À noter 
que lesvaleurs $00 à $7F ne peuvent être 
obtenues à partir du clavier. Les lettres C, 
S et CS représentent les touches Control, 


Shift et la combinaison des deux. 


*  OPCODES : représente en mmémoniques 6502 la 
signification des différentes valeurs hexa, 
dans le cas du langage machine. Les notations 
suivantes ont été utilisées 

A absolu Im immédiat 

A,X absolu indexé par X (I) indirect 

A,YŸ absolu indexé par Y ZP page zéro 
(I,X) indirect indexé par X 

(I,Y) indirect indexé par Y 

ZP,X page zéro indexé par X 

ZP,Y page zéro indexé par Y 

* TOKEN le BASIC Integer et l'Applesoft 
utilisent, afin de diminuer l'encombrement 
mémoire, un codage des mots réservés du 
BASIC. Les codes $00 à $7F sont réservés à 
l'Integer, ceux entre $80 et $FF à 
l'Applesoft. Dans le cas de l'Integer, où un 
même signe peut avoir plusieurs codes selon 


le contexte, un court est donné à 


droite de la colonne. 


exemple 





41 


Pom's n° 4 











TABLEAU 1 ($00 a $3F) 


a —— ——— 








î 
1HEXA! DEC ! BINAIRE :DECS256 ! ASC 1 | ECRAN! TOUCH ! DPCODE 6502" TOKEN INTEGER ; 
D Eénenee À cpomiemmmemmence Venere À a mm cmmmmemmmm— À 
‘ 00 ! 0 ! 00000000 ! O ‘ nul ! 1:9 ! - ! BRK ! Debut de ligne . 
LOE73 1 ! 00000001 ! 256 ! soh ! I1:A ! — ! ORA-(I,X) ! Fin de ligne k 
4 :02 1 2 ! 00000010 ! “12 !:strlrasB.l — 4 se ! Non utilise : 
1.05 .! 3 ! 00000011 ! 768; etu-lehe = ! — Je separateur ! 
‘ 04 ! 4 ! 00000100 ! 1024 ! eot ! I1:D! - ! — ! LOAD Kzr 
+ = jm 5 ! 00000101 ! 1280 ! eng ! I:E ! — ! ORA-ZP 1! SAVE K7 ! 
!" 06 ! 6 ! 00000110 ! 1536 ! ack ! I:F ! — ! ASL-ZP ! CON : 
07 7 00000111 ! 1792 ‘bel ! IBM: - Hi ! RUN ligne n ! 
! 08 ! 8 ! 00001000 ! 2048 ! bs ! I:H ! — ! PHP ! RUN debut ! 
1-09 ‘1 9 ! 00001001 ! 2304 ! ht ! I:1 ! — ! ORA-Ie \ DEL : 
1 OA ! 10 : 00001010 ! 2560 ! 1f ! I:J ! — ! ASL lys DEL 0,5 ! 
LOBLE AA 120000108145: 2818 !E-vELETER.T = 7 ! NEW : 
O6 4: 2 2700001100... 3072552 FELAAL 1,2, ! CLR : 
1 OD ! 13 ! 00001101 ! 3328 ! cr ! I:M ! — ! ORA-A ‘ AUTO : 
1 OE ! 14 ! 00001110 ! 3584 ! so ! I:N ! - ! ASL-A a AUTO 0,5 ! 
A HSE és. ‘ovs dde © PNR ES ER ! MAN $ 
1 10 ! 16 ! 00010000 ! 4096 ! dle ! I:P ! — ! BPL ! HIMEM: è 
1 11 ! 17 ! 00010001 ! 4352 ! dci ! 1:@ ! — ! ORA-(I),Y : LOMEM: ë 
1712 © 18 ! 00010010! "4608 E'UEZ TIR ! — : — RS à operateurs ‘! 
t 13261191 00010011 ! 489864 1 des ! HS mil RE numeriques ! 
1 14 ! 20 ! 00010100 ! 5120 ! de& ! IsT ! — ! — L + ar exemple: ! 
1 45 ! 21 ! 00010101 ! 5376 ! nak ! I:U ! —- ! ORA-ZP,X : / A=148(27+15) : 
1 16 ! 22 ! 00010110 ! 5632 ! syn ! I:V ! — ! ASL-ZP,X : = 
1 17 ! 23 ! 00010111 ! 5888 ! etb ! IsW! - ! — ! + operateurs : 
1 18 ! 24 ! 00011000 ! 6144 ! can ! I:X ! — ! CLC 1 >= logiques ' 
1 19 ! 25 ! 00011001 ! 86400 ! em ! I:Y ! — ! ORA-A,Y 152 pour : 
1 1A ! 26 ! 00011010 ! 6656 ! sub ! J1:Z 1 — ! —— L <= variables ‘! 
VB LU 27 COMRESDIT ! 6912 LDC: !-hr = ©: — <> numeriques ! 
PACSEC D COOMIO0 ! "7Ib8 0 7e DENT Rens 11< par exemple! 
1 1D ! 29 ! 00011101 ! 7424 ! gs ! I:]1 ! - ! ORA-A,X ! AND IF X>=12 ; 
1 1E ! 30 ! 00011110 ! 7680 ! rs ! 1:* ! — ! ASL-A,X U OR THEN... : 
HA4F'F GE !: 00011411 7936 us t En dr le ! MOD L 
1 20 ! 32 ! 00100000 ! 8192 ! ils tm ! Jon Le , 
1 21 ! 33 ! 00100001 ! 8448 ! ! ! I: ! — ! AND-(I,X) ! Non utilise : 
1,29 5421 SK&.-L-O00É00010: 1:5:8708:,1:25- LERRUEE = Ir x DIM A$(3)! 
‘23 + 35 ! 00100011 !.-:9940 !: 8: ET — _! — ss A$ (3,3)! 
t 24 1 36 ! 00100100 ! 9216 ! $ ! IsS ! — ! BIT-ZP ! THEN IFX=STHEN10! 
1 25 ! 37 ! 00100101 ! 9472 ! %X ! I:X ! — ! AND-7ZP 1 THEN IFX=3STHENA=2! 
1 26 ! 38 ! 00100110 ! 9728 ! & ! I:& ! — ! ROL-ZP TX INPUT"ST",AS$! 
CS SN COOL ! El": = = Us INPUT"ST",A! 
1 2B ! 40 ! 00101000 ! 10240 ! € ! Ist ! — ! PLP Er D{tbut ! 
1 29 ! 41 ! 00101001 ! 10496 ! ) ! 1:) ! — ! AND-Ie + Fin! 
1 2A ! 42 ! 00101010 ! 10752 ! # ! I: ! — ! ROL ME A$ (3) ! 
t 25% 43 ! 00401011 -h 11008 + ! Istul: roi ! Non utilise , 
1 2C ! 44 !: 00101100 ! 11268 ! , ! Is, ! - !-BIT-A ! Non utilise J 
1 2D ! 45 : 00101101 ! 11520 ! - ! Is— ! — ! AND-A A A{3)! 
1 2 ! 46 ! 00101110. ! 11776 ! . ! 13. ! — ! ROL—A ! PEEK 
S:2F 4 M7 ASOBEDBII1 212092 5/7 =! Es ! , = : ss ! RND x 
t 30 ! 48 ! 00110000 ! 12288 ! O ! I1:0 ! - : BMI ! SGN : 
1 31 ! 49 ! 00110001 ! 12544 ! 1 ! I:1 ! — ! AND-(1),Y : ABS : 
1 V2 CARS TCONIDOID ! 100! 2 IRL 1 PDL : 
VU TS SE NMOMIODIE IS ! SO ‘HS! — ! — ! Non utilise : 
1 S4 1-22 ! 00110100 ! 13312 ! à ! Isgt =: 5 € DIM A(3)! 
1 35 ! 53 ! 00110101 ! 13568-! 5 ! 1:25 ! — ! AND-ZP,X : + A=+5! 
t 38 * 54 ! 00110110 ! 13824 ! 6 ! Isé! — ! ROL-ZP,X. : - A=-5! 
1 57 U 55 1 00110111 : 14080 ! 7 !Is7 ! - ! — \ NOT , 
1 38 ! 56 ! 00111000 ! 14336 ! 8 ! 1:98 ! - ! SEC .( ! 
1 39 ! 57 ! 00111001 ! 14592 ! 9 ! I:9 ! — ! AND-A,Y 1 =  IFA$="C"THEN.. ! 
! SA 258 ! 00111010 ! 14848 ! = ©! Iss ! — ! —— 1 #  IFA$#"C"THEN..! 
1 5-4 D Tr OQUITIOIL ! 151089 ! p ! Jap if — ! — ! LEN( . 
1 SC AD ! CRM1100.! 15380 ! € ! In = ‘ ASC( ; 
1 3D ! 61 ! 00111101 ! 15616 ! = ! I:= ! — ! AND-A,X ! SCRN( : 
1 SE ! 62 ! 00111110 ! 15872 ! > ! I53> ! — ! ROL-A,X Le SCRN (3,5) ! 
(WW? 6 TOITS ! ID! ? ! [Pme T 0 JR 
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64 


TABLEAU 2 


($40 a $7F) 


| ES D | 


IHEXA! DEC ! BINAIRE 


01000000 ! 


01000001 
01000010 
01000011 
01000100 
01000101 
01000110 
01000111 
01001000 
01001001 
01001010 
01001011 
010011 

01001101 
01001110 
01001111 
01010000 
01010001 
01010010 
01010011 
01010100 
01010101 
01010110 
01010111 
01011000 
01011001 
01011010 
01011011 
01011100 
01011101 
01011110 
01011111 


01101001 
01101010 
01101011 
01101100 
01101101 
01101110 
01101111 
01110000 
01110001 
01110010 
01110011 
01110100 
01110101 
01110110 
01110111 
01111000 
01111001 
01111010 
01111011 
01111100 
01111101 
01111110 
01111111 


'DEC#256 


‘ASCII! 
! 


PUrMNKMELCANTDTOTOZATX Ge LO NMENTDES 


PV mNKXE <E TN IO0D0OTI 3 -x0 M TO HONTE 


1 me mm 


ECRAN ! TOUCH! 


F:6 


PU MNERMELC AN DO VOZETX Cm TI 


NNNNNNNNNNNNNNNNNNNNNNNNNNNN 


1e + RNA 


TNNNNNNNNNNNNN 


NINNNNNNNNNNNN 
JV NN Aves DONC UBRUNEON: 


mm mm mue un due um om un 0e ue om 





6502! TOKEN INTEGER ; 


RTI 
EUR-(1,X) 


EOR-7ZP 
LSR-7ZP 
PHA 
ECR-Im 
LSR 


JMP-A 
EOR-A 
LSR-A 


BVC 
EOR-(1),Y 


L A$ ! 
Non utilise ; 
ë 
- 
5 ! 
3 ! 
; 3 
; H 
é 3 
$ ! 
ë 1 
TEXT : 
GR 1 
CALL ! 
DIM DIM A$(3)! 
DIM DIM A(3)! 
TAB H 
END ! 
INPUT INPUT A$! 
INPUT INPUT"T",A$! 
INPUT INPUT A! 
FOR ! 
= FOR I=1 TO 3! 
TO ! 
STEP ! 
NEXT ! 
à NEXT 1I,J! 
RETURN 
GOSUB ! 
REM ! 
LET 3 
G0OTO ; 
IF ; 
PRINT PRINT A$! 
PRINT PRINT A! 
PRINT PRINT ! 
POKE 3,3! 
COLOR= ; 
PLOT ! 
à PLOT 3,3! 
HLIN ! 
; HLIN 3,5 AT! 
AT HLIN 3,5 AT! 
VLIN ! 
$ VLIN 3,5 AT! 
A7 VLIN 3,5 AT! 
VTAB ! 
= A$="HELLO"! 
= A=3! 
) ! 
Non utilise ! 
LIST IST 5! 
S LIST 3,5! 
LIST LIST! 
1 
NODSP NODSP A$! 
NODSP NODSP A! 
NOTRACE ! 
DSP DSP A$! 
DSP DSP A! 
TRACE ù 
PR# J 





TABLEAU 3 ($80 a $BF) 


ñ a —— ————— ———— | 


iHEXA! DEC ! BINAIRE \DEC#256 ASCII !ECRAN ! TOÜCH ! OPCODE-6502 ! TOKEN APPLESOFT  ! 


———— E————— ' mme À mm 1 —_——— 1 t 1 ———————— 1! _ me ! 








1 80 
81 
g2 
83 


128 
129 
130 


10000000 ! 


10000001 
10000010 
10000011 
10000100 
10000101 
10000110 
10000111 
10001000 
10001001 
10001010 
10001011 
10001100 
10001101 
10001110 
10001111 
10010000 
10010001 
10010010 
10010011 
10010100 
10010101 
10010110 
10010111 
10011000 
10011001 
10011010 
10011011 
10011100 
10011101 
10011110 
10011111 
10100000 
10100001 
10100010 
10100011 
10100100 
10100101 
10100110 
10100111 
10101000 
10101001 
10101010 
10101011 
10101100 
10101101 
10101110 
10101111 
10110000 
10110001 
10110010 
10110011 
10110100 
10110101 
10110110 
10110111 
10111000 
10111001 
10111010 
10111011 
10111100 
10111101 
10111110 
10111111 


32768 


nul 


je + RNA = 


JV Ass DONTUBUNæmeOS: 


STA-(1,X) 


STY-ZP 
STA-ZP 
STY-ZP 


DEY 


TXA 

STY-A 
STA-A 
STX-A 


BCC 
STA-(1),Y 


STY-ZP, X 
STA-ZP, X 
STX-ZP,Y 


LDA-(1),Y 
LDY-ZP, X 


LDA-ZP, X 
LDX-ZP,Y 


Le CL Ed ds ec 2 Lien men es ae qe ananas ei Qu does en ns mn ch qi anis ans QAR CRE CE É  e 


000000 


' N:9 ' Ed 
1 N:A : CA 

! N:B ! CB 

" NsG:! CC 

‘ N:D ! CD 

! N:E ! CE 

" NsF ! CF 

1! N:G ! C6 

! N:H ! CH 

! Ns:I ! CI 

{ NsJ ! CJ 

1‘ NsK ! CK 

 NsL ! CL 

! N:M ! CM 

1 N:N ! CN 

! N:0O ! CO 

! NsP ! CP 

1 N:Q ! CG 

1 N:R ! CR 

1 NsS ! CS 

NT: "CT 

1 NsU ! CU 

{ NsV ! CV 

1 N:W :! CH 

SNA T!S CX 

Ut NsY ! CY 

1 NsZ ! CZ 

1 N:E ! esc 
ONE: — 
{ Ns:]) ! CSM 
1 Ns® ! CSN 
V'Nais: —— 
! Ns  ! esp 
\ Nes! ! Si 

t-Ns°:! 62 

1 Ns# ! S3 

! N:$ ! S4 

! N:Z ! S5 

1 Ns% ! S6 

1-Ns2:1 S7 

1 NsC ! S8 

! Ns) ! S9 

\ N:S ! S: 

U Ns+ ! S;s 

NS: » 

t-Nss:t: — 

V'Nss:! 

NL": / 

! NsO ! O 

SNS TT: 1 

\ Ns2 ! 2 

NS: 3 

! N:4 ! 4 

" NS ! 5 

1 Ns6 ! 6 

\Na7 °° 7 

! Ns9 ! 8 

U Ns9 ! 9 

NES: 1! 

NI: 5 

1 Ns< ! << 

\ Ns= ! = 

! Na> ! > 

1 N:27 1 7? 

Pom's n° 4 


TABLEAU 4 ($C0 a $FF) 


IHEXA! DEC : BINAIRE ‘DEC#256 ASCII !ECRAN'TOUCH'OPCODE-6502! TOKEN APPLESOFT 








Dmemenen À memes À mmmmemmmmmmmmes Î mms 1 ———— à Lmmmmmnn À emmmememmmmmmmmm— | — 


L 
L 
CO ! 192 ! 11000000 ! 49152 ! © ! N:9 ! SP ! CPY-Ian ! TAB( ! 
" C1 ! 193 ! 11000001 ! 49408 ! À ! N:A ! À ! CMP-(I,X) ! TO 1 
1 C2 ! 194 ! 11000010 ! 496864 ! B ! NB! B ! —— ! FN ! 
1 CS ! 195 ! 11000011 ! 49920 ! CC ! NC! CC ! — 1 SPC( ! 
1 C4 ! 196 ! 11000100 ! 501786 ! D ! NsD ! D ! CPY-ZP ! THEN ! 
1 C5 ! 197 ! 11000101 ! 50432 ! E ! NsE ! E ! CMP-7P \ AT : 
1 Cé ! 198 ! 11000110 !: 50688 ! F ! N:F ! F  ! DEC-ZP ! NOT ! 
1 C7 ! 199 ! 11000111 ! 50944 ! 6 ! N6! 6 ! — ! STEP ! 
. 1 C8 ! 200 ! 11001000 ! 51200 ! H ! N:H ! H ! INY 1 + ! 
1 C9 ! 201 ! 11001001 ! 514586 ! I  ! N°1 ! I  ! CF-In LU — ! 
1 CA ! 202 ! 11001010 ! 51712 ! J ! N:J ! J ! DEX CE: ! 
! CB ! 203 ! 11001011 ! 51968 ! K ! N:K! K ! —— Lx ! 
k & CC ! 204 ! 11001100 ! 5224 ! L ! NsL ! L ! CPY-A Le 4 
1 CD ! 205 ! 11001101 ! 52480 ! M ! N:M! M ! CMP-A ! AND : 
1 CE ! 206 ! 11001110 ! 52736 ! N° ! N:N ! N  ! DEC-A ! OR 4 
" CF ! 207 ! 11001111 ! 52992 ! O ! NO! O ! ——- > ! 
{ DO ! 208 ! 11010000 ! 53248 ! P ! N:P ! P  ! BNE ‘= ! 
! Di * 209 ! 11010001 ! 53304 ! OO ! N:D ! .Q_.! CMP-(I),Y ! < ! 
LD2 ! 210 ! 11010010 ! 53760 ! R ! NR!_R ! — ! SGN ! 
! D3 ! 211 !: 11010011 ! 54016 ! S ! NS! S ! — ! INT ! 
! D4 ! 212 ! 11010100 ! 54272! T ! NT! T ! — 1 ABS ! 
DS ! 2135 ! 1101010: 24928 !-.-U. ! Na! LU  !-CHP-ZP,X _! USR ! 
! D6 ! 214 ! 11010110 ! 547894 ! V_! NV! -V  ! DEC-ZP,X -! FRE : 
 D7 * 215 ! 11010111 ! 55040 ! W ! NN! NW _ ! — ! SCRN( ! 
EDS 216 ! 11011000 : 593298 12 X 1 NE = X "LED | PL : 
1-D9 + 217 ! 11011001 = REZ 1 Y NN TT Y  !-C A, Ÿ ! POS ! 
E DA ! 218 ! 11011010! 53908 ! Z ! NszZ * Z !: — 1 SR ! 
! DB ! 219 ! 11011011 !- 56084 ! 1°! NN: ! —— 1! — ! RND 3 
4 DC ! 220 ! 11011100 : 56320 ! \° ! Ns\! ——— ! —— ! LOG : 
\ DD ! 221 ! 11011101" 36978 !: DJ? N:] ! SM ! CIP-A,X ! EXP ! 
4 DE ! 222 ! 11011110 56952! * ! NN: ! SN  ! DEC-A,X ! COS ! 
L-DF ! 225 ! 41011121 970898 Nr  ! — ! —— ! SIN ; 
! EO ! 224 ! 11100000 ! 57344 ! !Ns ! —— ! CPX-Is ! TAN ! 
1 E1 ! 225 ! 11100004 F°2378600:! a. !Ns! ! —— ! SRC-CI,X)::1 AIN u 
* E2 ! 228 ! 11100010 !-578585 ! b !N:°" ! — ! — ! PEEK ! 
1 ES ! 227 ! 11100011 ! 58112 ! € ! N:# ! ——— ! — ! LEN ! 
! E4 ! 228 ! 11100100 ! 58368 ! d ! N:$ ! ——— ! CPX-ZP ! STR$ ! 
1 ES! 229 ! 11100101 : 589624 ! ee! NsZ ! ——! SHC-7P " VAL ! 
! E6 ! 230 ! 11100110 ! 588890 ! +#f ! Ns&°! —-—— ! INC-7ZP ! ASC : 
PET EST F-HHOOEIE EE 7136 L-ÙQ NE St 1! CHR$ ! 
! E8 ! 232 ! 11101000 ! 59392 ! h ! Ns:C ! —— ! INX ! LEFTS$ ! 
1:E9. !: 2335! 11101001 ! 59648 ! ji ! Ns) ! —- ! SRC-In ! RIGHT$ ! 
PEA ! 234 "11101010 7 59904-!: j ©? 'Nsg:t — !'NDP ! MID$ 1 
t°EB ! 235 ! 11101011! 860160 ! k ! Nsr! ——— ! — U —— ! 
BEC:!:236:1 11101100 ! 60416! 1: ! Ns, ! —— ! CPX-A U —— ! 
ED ! 237 ! 11101101 ! 60672 ! nm !-Ns— ! ——— !: SBC-A 1 — ! 
LEE ! 2358 ! 11101110 ! 60928 ! n ! Ns. ! ——— ! INC—A U —— ! 
EF ! 259 ! 11101111 ! 61184 ! Oo !'N/ !— ! — U —— ! 
! FO ! 240 ! 11110000 ! 61440 ! p ! N:O ! ——— ! BEQ U — ! 
F1 261!" 11110001 ! 61696 !. aq ! Nail! ——— ! SBX-(I),Y ! —— ! 
: 1.F2 ! 242 ! 11110010 ! 61952 !- Fr -! Na2! —— ! — U — ! 
LU F3 !° 243 ! 11110011 ! 62208 ! ss ! N:3 ! ——— ! —— 1 —— ! 
! F4 ! 244 ! 11110100 ! 62464 ! tt ! Ns& ! —— ! —— | — ! 
| LU FS !°245 ! 11110109 62720": NID E:—— "1 SEC-ZP,X ! —— ! 
k l F6 ! 246 ! 11110110 ! 62976 1: v ©! N36 ! — ! INC-FP,X ! — 3 
1 F7 ! 247 ! 11110111 ! 63232 ! w ! Ns7 ! —— 1 —— 1 —— ! 
! F8 ! 248 ! 11111000 ! 63488 ! x ! N:8 ! ——— ! SED U —— ! 
1-F9 ! 249 L'AMIHIOOL 68788 ! y !N:9 ! ——— ! SEC-A,Y VU —— ! 
L'FA ! 250 ! 11111010 ! 64000 ! z ! Ness ! ——— 1 — U —— ! 
LFB 1 254 21H 1011 68256 € Mi t —— ! 
t FC ! 252 ! 11191100 1 64512 1; © N<! —!t — U —— ! 
! FD ! 253 ! 11111101 ! 64768 ! 7} ! N:= ! ——— ! SBC—A,X | —— ! 
\ FE ! 254 ! 11111110 ! 65024 ! ® ! N:s> ! —— ! INC—A,X U —— ! 
0 FF ! 255 ! 11111111 ! 652890 ! rub ! Ns7.! —— 1! — | —— ' 
45 
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"Croque moi 
















































































PU EUR ESS 


et tu inventeras. 


L'homme invente de plus en plus. Et de mieux en mieux. 
Pour repousser les limites du possible, il s’est fabriqué des outils à sa mesure. 
L'ordinateur personnel Apple en est un. 


Rappelezvous. Il n'y a pas si longtemps, 
l'ordinateur personnel c'était un rêve. Aussi fou 
que de vouloir posséder son propre vaisseau 
spatial. 

Et puis il y eut Apple. 

L'informatique indépendante, abordable (un 
Apple coûte moins qu’un simple photocopieur) 
et accessible (on apprend à s’en servir en quelques 
heures). 

Un Apple ne vient jamais seul. Avec lui, vous 
disposez d’une bibliothèque de programmes avec 
lesquels vous pouvez vous mettre tout de suite au 
travail. Sans avoir à apprendre le langage 
informatique. 


À 
+ 
de 









Un Apple, c’est le meilleur moyen d’aller plus vite et plus loin. D’être créatif sans aucune contrainte. 
De regagner le temps perdu en tâches répétitives, en routine. D’aller jusqu'au bout de chaque nouvelle 
idée. De redevenir inventif à 100 %. 


Vous faut-il d’autres bonnes raisons? 


Alors, examinez une de vos 
journées de travail, vous en 
trouverez. Mais si vous savez déjà TT 
qu'un ordinateur personnel peut 
vous faire du bien, documentez-vous 


Un Apple, c'est vrai, change les façons 
de travailler, de penser, de décider. 
À vous de décider. 


BON A CROQUER 
Dre le bon à croquer Apple au bas à 
| pdt de BE déConrabafr: 77 
Et gardez bien en tête que votre venue de l'Océanie ZI. de Courtabeu 
ordinateur personnel doit disposer de 91944LES ULIS ce 
rogrammes pour vos travaux [] Que lire? Si vous voulez vous familiariser avec 
+ 1 Et qu'il doit être capable de le monde de l'ordinateur personnel à travers la littérature Apple et les 


: : L revues spécialisées, cochez cette case. 
grandir en fonction de vos besoins DEn fènçus D'Edtodiis 


à , - 
(Apple dispose Er d RE 43e D Si vous ne pouvez plus attendre, cochez cette case pour recevoir la 
que n'importe quel autre ordinateur liste des revendeurs agréés Apple. 


personnel). 4 ; Nom 
Choisissez aussi un ordinateur 











célèbre et qui a fait ses preuves : Sociées 
400.000 Apple fonctionnent chaque Adresse 
jour dans le monde. C’est la eme 0 — (GOdE pOStAI 


meilleure preuve de leurs hautes 
rmances et la certitude d’un 

service disponible sur le champ. On 

ne devient pas célèbre par hasard. 





ordinateur personnel 








ROBOTUAR 


BY SILAS HARNER 


PRESS 


ROBOTWAR = De Silas Warner - MUSE SOFTWARE 


Prix indicatif 350 FF TIC 
Lorsque j'ai acheté Robotwar (la guerre des 
robots), il y a un peu moins d'un an, jene 


me doutais pas de ce qui m'attendait ! sous 
des apparences de jeu innocent, se cache un 
programme diabolique qui peut ruiner votre 
santé si vous y passez vos nuits ! 


De quoi s'agit-il au juste ? De concevoir un 
programme pour votre robot afin de le faire 
combattre avec d'autres robots (et de gagner, 
bien sûr !). Le combat se déroule dans un 
lieu clos de 250m sur 250m, dans lequel les 
robots ont tout loisir de se déplacer. Vous 
contemplez la scène de votre poste 
d'observation, situé au dessus du lieu de 
bataille et séparé de lui par une vitre 
épaisse afin d'être à l'abri des projectiles 
tirés par les robots ! La partie droite de 
l'écran est un tableau de contrôle vous 
donnant la liste des robots engagés, leur 
représentation graphique, le pourcentage des 
dommages (suivant les projectiles reçus) et 
leur score. 


ii" 
Ph 
0, 
+ 
[ES AU 2 
A2. DMG 


ROBOTHAR EATTLEFIELDIS FPOBOTS) 


T0. STOP 








Comment réaliser un programme ? Tout d'abord, 
il faut définir la stratégie du robot. 
Comment va-t-il se déplacer ? Que faire 
lorsqu'il est touché ? Où tirer ? Ensuite, il 
convient de bien étudier le langage et les 
possibilités du robot. Vous disposez en effet 
d'instructions simples vous permettant 
d'effectuer des opérations, de tester, de 
faire des boucles. Votre robot dispose de 


registres permettant de commander sa vitesse 
en X et en YŸ, de savoir quelle est sa 
position, de commander le radar dans une 
direction, de tirer un projectile (tir 
réglable en direction et en longueur) et 
également de connaître sont taux 


d'endommagement (êtes-vous 
robot concurrent ?). 


la cible d'un 


Le programme est entré et modifié grâce à un 
éditeur incorporé. Il doit ensuite être 
assemblé pour être compris par le robot. Vous 
pouvez alors évaluer sa performance grâce à 
un banc de test ultra perfectionné (une 
excellente idée). Lorsque tout est prêt, 
choisissez les adversaires de votre robot et 
enfermez-les tous ensemble. Le robot ayant la 
meilleure £actique et le programme le plus 
évolué l'emportera. A noter que vous pouvez 
effectuer plusieurs combats de suite afin 
d'avoir une évaluation plus complète de votre 
robot. Ces combats peuvent se dérouler de 
façon entièrement automatique, ce qui permet 
par exemple d'en faire effectuer 40 durant la 
nuit. Et vous découvrez au matin les scores 
respectifs ! 


réjouira tous les fervents de 
et de programmation optimisée. Une 
une réalisation sans faille, 
"best-seller". Compte tenu de 
Robotwar a obtenu une très 


Ce jeu 
stratégie 
idée originale, 
cela donne un 
la concurrence, 


honorable 20ème place dans le classement de 
tous les logiciels sur Apple parus depuis 
novembre 1980, classement effectué par 


Softalk auprès de ses lecteurs. 


I1 paraît même qu'un championnat du monde a 
eu lieu aux Etats-Unis. Malheureusement, je 
l'ai su trop tard, sinon leur compte était 


bon, à ces Yankees ... Mais pourquoi pas un 
championnat de France ? Si vous êtes 
intéressé, écrivez-moi et surtout programmez 


un robot redoutable. Nous en reparlerons dans 
un prochain Pom's et tâcherons d'organiser 
quelque chose d'ici la fin de l'année. 


A vos robots ! 


Jean-François Duvivier, 1 rue du Sergent 
Blandan, 92130 Issy-les-Moulineaux. 
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Un PRINT USING 


d'intérêt général 





L'une des instructions BASIC qui manque le 


plus à l'Applesoft est le PRINTUSING. Le 
programme que nous présentons permet de 
pallier son absence. Ecrit en Applesoft, il 
occupe les lignes 40000 à 40044, Afin d'avoir 
le moins d'interaction possible avec le 
programme principal, il n'utilise que des 


variables de deux lettres commençant par Z. 


La valeur à écrire doit être placée dans la 


variable 72. Le masque de sortie est défini 
par ZZ$. L'appel se fait par un GOSUB 40000. 
Le sous-programme effectue la sortie 
formattée sur le périphérique en service au 
moment de l'appel (écran, imprimante...) et 
rend la main sans générer de retour à la 
ligne. 

Le masque peut être composé de quatre 
caractères différents l'espace, le #, le , 
et Ann7 Les espaces ne peuvent être 
incorporés qu'avant ou après les autres 
caractères, mais ne peuvent pas être 
incorporés à l'intérieur de ces caractères. 
Ces espaces seront automatiquement avant ou 


après le nombre formaté. 


# définit un chiffre: 
. donne l'emplacement de la virgule; 


AA#A indique une sortie avec notation 


Utilisation 

Les lignes 40000 à 4OO0UH doivent être 
ajoutées au programme déjà contenu en 
mémoire. La solution la plus aisée consiste à 
faire un fichier Exec qui contienne les 
lignes 40000 à 40044 (voir Pom's, numéro 3). 
Pour cela, après avoir tapé le sous-programme 
de PRINTUSING, ajoutez-lui les lignes 
suivantes 


10 D$=CHR$(4):F$="PRINTUSING" 
20 PRINT D$'"OPEN"F$ 
30 PRINT D$"WRITE"F$ 


HO POKE 33, 33 

50 LIST 40000, 40044 

60 PRINT D$"CLOSE" 

70 END 

et faites RUN. Le fichier PRINTUSING est créé 
(pour ceux qui ont la disquette POM'S, ce 
fichier existe déjà). Pour ajouter les lignes 
du sous-programme PRINTUSING à votre 
programme, il suffit alors de le charger en 
mémoire par un LOAD et de taper EXEC 
PRINTUSING. Lorsque la disquette s'est 
arrêtée, vous pouvez alors faire un SAVE de 


votre programme complet. 


Attention vérifiez bien avant que les 
scientifique de la forme E +ou- et deux lignes 40000 à 40044 de votre programme sont 
chiffres. inutilisées et que vous n'employez pas de 

variables commençant par Z. 

Les exemples donnés dans le tableau vous 

permettront de mieux comprendre le 

fonctionnement de ce programme. A noter que JIRUN 

- aucun retour à la ligne n'est généré; PRINTUSING DEMONSTRATION 

- les zéros en tête ne sont pas inscrits; 

- en cas de nécessité, des zéros seront PROS HT HOHRTANAA HSE RES S 

ajoutés à la fin afin de remplir le masque: 

- en cas de nécessité (précision du chiffre 10 77+?? -10 -,100E+02 -10,0000 

supérieure au masque), le nombre sera arrondi  1+25 1,25 1 1,250E+00 1.2500 

au plus proche; 12,5 12,50 13 1,250E+01 12.5000 

É si le nombre est négatif, l'une des 23+75 23,75 24 2,37S5E+01 23,7500 

positions # est prise pour le signe: 35 35.00 35 3,500E+01 350000 

- si il y a plus ou moins de quatre signes À 46,25 46,25 46 4,625E+01 46,2500 

< le masque sera agrandi ou réduit 57.5 57,50 58 5.+750E+01 957,5000 

automatiquement afin d'en laisser quatre; 68,75 68,75 69 6,875E+01 68.7500 

- si le nombre ne tient pas dans le masque 80 80.00 80 8,000E+01 80,0000 

défini, ou si le masque est erroné, la sortie 91,25 91.25 91 9,125E+01 71.2500 

est formatée avec des points d'interrogation. 102,5 77.9? 103 1,025E+02 102,5000 

49 
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FR 


CHR$ (4)5F$ = "FRINTUSING 


30 PRINT D$;"OPEN";F# 
40 PRINT D$;"WRITE"3FS 
50 LIST 40000,40044 

60 PRINT D$;"CLOSE";F# 


70 END 

40000 REM FRINT USING 

40001 ZX = O$ZW = 0ZY = 0:24 = 0: 
ZT = O$ZU = 0:2S = OfZR = 0:Z 
Q = ZZiZY$ = STR$ (ZQG) 

40002 IF LEN (ZY$) > = 5 THEN IF 
MID$ (ZY$, LEN (ZY$) - 3,1) = 
"E" THEN ZV = VAL ( RIGHT$ ( 
ZY$,3))5ZY$ = LEFT$ (ZY$, LEN 
CRFVIE— 47 


40003 FOR ZW = 1 TO LEN (ZY$#)3 IF 
MIDS (ZY$,2ZW,1) < > ‘"'." THEN 
NEXT ZM 

4000" IF: LEN-CZYS) > 3 AND LEFTS 


CZYS}9) = "240" THEN, 2ZYS-.=. 2 
te REUMES CETRT ÉEN (ZI, 
3)5ZV = ZV - 15 GOTO 40007 

40005 IF ZW = 1 THEN ZY$ = RIGHTS 
CZYSS ECEN ZT) LT -IF.- LEFTFS 
(ZY$,1) = "O0" THEN ZY$ = RIGHTS 
(ZY$, LEN (ZY$) — 1)52ZV = ZU - 


1 
40006 IF ZW = 
40007 IF ZW < 


1 THEN 40009 
LEN (ZY$) THEN ZY$ 
= LEFTS$ (ZY$,2ZW - 1) + RIGHT$ 
(ZY$, LEN (ZY$#) -— ZW) 
40008 ZV = ZV + ZW -— 1 
40009 "FOR ZE STE TO “ÉEN (22977 IF 
MID$ (ZZ$%,2I,1) = " 
"_"$4 NEXT ZIS GOTO 40039 
FOR ZJ = ZI TO LEN (ZZ$)5 IF 
MID$ (2Z$,2J,1) = "#" THEN Z 
T = ZT + 1? NEXT ZJ? GOTO 400 
15 
40011 IF MID$ (Z22$,2ZJ,1) = "," THEN 
ZS== 1129 29-46 LISEr 2) > ::LEN 
(ZZ$) THEN GOTO 40015 
40012 FOR ZK = ZJ TO LEN (ZZ$)3 IF 


40010 


MID$ (ZZ$,ZK,1) = "A" THEN Z 
KR = 13 GOTO 40015 

40013 IF MID$ (ZZ$,ZK,1) = ''#" THEN 
ZU = ZU + 1 NEXT ZKi GOTO 40 
015 

40014 IF MIDS (ZZ$,2K,1) 2 
"" THEN 40039 


40015 IF LEN (ZYS) < ZU +R TE 
THEN FOR ZI = LEN (ZY$) TO 
ZU + ZTct:$$ZYS = ZYéU+1"0"3SNEXT 
ZI 
40016 IF VAL (ZY$) = 0 THEN ZV = 
15 GOTO 40021 
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#- FHEN- FRIRT 


40017 ZF = ZV + ZU + 15 IF ZR = 1 THEN 
ZP = ZT + ZU + 1 

40018 IF ZF < = 0 THEN 40021 

40019 ZY$ = STR$ ( VAL ( LEFT$ (Z 


Y$,ZF)) + 5 x SGN (ZZ)) 


40020 IF LEN (ZY$) > ZF THEN ZV = 
LV Er. 1 
40021 IF ZR < > 0 THEN GOTO 400 
30 
40022 IF ZV > ZT THEN 40039 
40023 ZX$ = ""3 IF ZZ < 0 THEN ZY$ 
= RIGHTS (ZY$, LEN (ZY$) - 
L)2XS = 7 
40024 IF ZV < = 0 THEN ZY$ = "0" 
+ ZY$:ZV = ZV + 1: GOTO 4002 
4 


40025 ZY$ = ZX$ + ZY$ 
40026 IF ZT - ZV > O0 THEN FOR ZI 


= 1 TO ZT - ZV$ PRINT " "$3z 
T = ZT - 1! NEXT ZI 
40027 IF ZT > 0 THEN PRINT LEFT$ 


(CZY$,ZT)} 
40028 IF ZS < > 0 THEN PRINT ". 
“ÿt IF ZU > 0 THEN FOR ZI = 
ZT + 1 TO ZT + ZU: PRINT MID$ 
(ZY$,Z1,1)5% NEXT ZI 
40029 GOTO 40037 
40030 PRINT LEFTS$ 
ZVSiTT 
40031 Ir ZS < > 
PET EU 


(ZY$,2ZT)$$ZV = 


0 THEN FRINT ", 
0 THEN FOR ZI = 


ZT + 1 TO ZT + ZUS FRINT MID$ 
(ZY$,ZI,1)5: NEXT ZI 
40032 IF VAL (ZY$#) = 0 THEN ZV = 
0 
40033 PRINT "E"$t IF ZV < 0 THEN 
PRINTF:2-" 
40034 IF ZV > = 0 THEN PRINT "+ 
’ 
40035 IF AES (ZV) < 10 THEN PRINT 
"0"; ABS (ZV); 
40036 IF ABS (ZV) > 9 THEN PRINT 
ABS (ZV)}; 
40037 FOR ZI = LEN (ZZ$) TO i STEF 
_- 19 IF MID$ (ZZ$,2I,1) = " 
" THEN PRINT "“ "ÿ3 NEXT ZI 
40038 RETURN 
40039 FOR ZI = 1 TO LEN (ZZ#) 
40040 IF MID$ (ZZ$,ZI,1) = "V" THEN 
PRINT " "$t GOTO 40044 
40041 IF MID$ (ZZ$,2Z1,1) = "," THEN 
PRINT ","$: GOTO 40044 
40042 IF MID$ (ZZ#,ZI,1) = ‘"#" THEN 
PRINT "?"$: GOTO 40044 


40043 IF MID$ (ZZ#,Z1,4) = "AAA 
" THEN PRINT "E???"$iZI = ZI 
+ 3: GOTO 40044 

40044 NEXT ZI: RETURN 
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Notions de base : les fichiers 





En version standard, le DOS de l'Apple II JLIST 
n'offre pas d'utilitaires de gestion de 
fichier. Il vous appartient donc de définir 1 GOTO 1000 
par vous-même l'organisation de vos fichiers, 30 REM 
les modes d'accès, les méthodes de recherche, 40 REM  XXXMXM MMM MON NON HOMME A 
etc. Les réponses à ce type de problème sont x RECHERCHE x 
extrêmement variées. Cet article n'en x DICHOTOMIQUE x 
présentera que quelques-unes, relativement XCNONMOM OKON DAC COCO ONCE 
simples à mettre en oeuvre et ne faisant 
appel qu'aux seules ressources du BASIC 50 Ki = 1:K2 = NZ$ IF NZ = 0 THEN 
Applesoft, sans s'attarder sur les structures K = 15 RETURN 
purement séquentielles dont l'intérêt et la 91 K = INT (CCK1 + K2) / 2):A$ = 
difficulté semblent assez réduits. LEFT$ (N$(K),6)3 IF S$ = A$ 
THEN Ki = — 1% RETURN 
92 IF S$ < ÀA$ AND K2 > K1 + 1 THEN 
{2 = Kf GOTO 51 
93 IF S$ < ÀA$ THEN RETURN 
1. Fichiers séquentiels à accès direct avec 54 IF K2 > Ki + 1 THEN Ki = K!t GOTO 
table de référence 1 
99 K = K + 135 IF S$ > LEFTS$ (N$( 
a) Table de référence complète en mémoire {2),6) THEN K = K2 + 1 
: 96 IF S$ = LEFT$ (N$(K2),6) THEN 
Supposons que l'on veuille ecrire un Ki = — 1!:K = K2! RETURN 
programme permettant de gérer un stock 57 RETURN 
d'articles quelconques. Indépendamment des 49 REM 
divers traitements à réaliser, ce qui nous 2090 DATA CREATION,CONSULTATION, 
intéresse ici est de pouvoir stocker et ANNULATION,FIN 
récupérer rapidement les données concernant 210 DATA DONNEE 1,DONNEE 2,DONN 
un article précis (stock, prix unitaire ...). EE 3,DO0NNEE 4,D0NNEE 5 ,DONNE 
E 6 
Poussons donc l'audace jusqu'à doter chacun 2209 FOR I = 1 TO 4: READ ME#(I)! 
de nos articles d'un code, long par exemple NEXT ?: FOR I = 1 TO 6?! KREAD 
de 6 caractères alphanumériques, et qui nous LI$(I)t NEXT ? RETURN 
servira de clé d'accès. Le principe de 390 VTAE 22: HTAE 1? CALL - 8468 
gestion des fichiers se décompose alors en t VTAB 221 HTAE 1! INVERSE ! 
trois étapes : PRINT Z$! NORMAL : FOR Z = 
1 TO 2000 NEXT ? RETURN 
. Etablir une table des codes-articles, clas- 980 KREM 
sée par ordre alphabétique. 990 REM  XXIDMMOMMMN MDN NN OKON 
. Associer à chaque code-article une adresse x DEEUT DU % 
renvoyant au fichier qui mémorise les x FROGRAMME x 
données. KM DMC DC OC DDC DCE ON DC DC DCE COCO 
. Ecrire ou lire les données à l'aide de ce 
fichier. 1000 D$ = CHR$ (4):B$ = " » 
= $ ONERR GOTO 9900 
Seule la table de référence, comportant les 1010 DIM N$#(100),LX(50) 
codes et les adresses, réside en mémoire 1015 GOSUE 200 
centrale. Par ailleurs, elle sera stockée sur 1020 TEXT ? HOME t FOR I = 1 TO 
disquette dans un fichier séquentiel à accès 4! VTAE 2 + 2 x I! HTAE 1! FRINT 
séquentiel. I" —,  "MESCI)? NEXT : VTAB 22 
#t HTAB 13 INFUT "VOTRE CHOIX 
Le programme suivant donne un exemple ? "$CHS IF CH < 1 OR CH > 4 
d'utilisation de cette méthode. THEN 1020 
51 
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ee 


1030 
1040 
1045 
1046 


1050 


1120 


1125 


1130 


1180 
1190 


2000 


IF CH = 4 THEN 8000 


IF NZ < > 0 THEN 1070 
REM 
REM XXMMMMMMMMMMMMMMMMK 


x LECTURE DE LA *%x 
x TABLE DE x 
x REFERENCE x 
AC ANNE OCOK DC DOC DC OCDE 


EX = 1:Z = 0? PRINT D$"OFEN 
TABLE"? FRINT D#$"READ TAELE" 
t INPUT NZ FOR I = 1 TO NZ: 
INFUT N$#(I)f NEXT ? INFUT N 
Li IF NL = 0 THEN 1055 
FOR I = 1 TO NL INPUT LX(I 
)# NEXT 
PRINT D$"CLOSE"$EX = 0: 
Z = 5 THEN NZ = OiNL = 0 
PRINT D$"FR#0" 
TEXT $ HOME :2$ = 
20: 5 LENUCZS} : 41421 
$ FRINT Z$: NORMAL 
VTAB 4% HTAE 1% FRINT 
ARTICLE : "}ÿi VTAE 4: 
165 INPUT ""ÿCAS: 
A$) > 6 THEN 1075 
S$ = LEFT$ (CA$ + B$,6): GOSUE 
50? ON CH GOTO 1100,2000,300 


FF 


ME$ (CH) à 
INVERSE 


HTAE 


"CODE 
HTAE 
IE: LENTCC 


0 
REM 
REM KM NOMME MC HCMK M HOMOK M 

x CREATION x 


MONOMOMON NOK OKON OKON NC KE 


IF Ki = - 1 THEN Z$ = 
STE"? GOSUE 300: GOTO 1020 

FOR I = 1 TO 6: VTAE 5 + I: 
HTAE 15 PRINT LI$(I)'" % “3 NEXT 
t FOR I = 1 TO 6% VTAE 5 + IT 
 HTAB LEN (LIS$(I)) + 43 INFUT 
““#DO$(I)5 NEXT 3; VTAE 22: HTAE 


"EXI 


15 INFUT "OK ? "5293 IF 2$ = 
"N'' THEN 1110 
EEX = 9!R = NZ + 135 IF NL > 


0 THEN KR = LXCNL) SNL = 
1 
IF K < = NZ THEN FOR I = 
NZ TO:K STEP rrml INSCI +:1).= 
N$#(I)? NEXT 
NZ = NZ + 1LiN$SCK) = S$ +  STR$ 
(R)$ FRINT D$"OFEN ARTICLES, 
L100"? PRINT D$"HRITE ARTICL 
ES,R'R? PRINT S$: FOR I = 1 TO 
6t PRINT DO$(I)? NEXT : PRINT 
D$"CLOSE"? PRINT D$"PR#0"? GOTO 
1020 
REM 
REM 


NL — 


x CONSULTATION x 
CRC DC OCDE DC OC DOC MCE 


IF Ki > 0 THEN Z$ = "N’EXIS 
TE FAS"; GOSUB 300: GOTO 102 
0 


2005 
2010 
2020 


2030 


2980 
2990 


3000 
3010 


3020 


3030 


7980 
7990 


8000 
8010 


9900 


9910 


9920 
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EEX = 9 x (EEX = 9) 

GOSUE 2020; GOTO 1020 
R = VAL ( MID$ (N$(K),7)2)4 FRINT 
D$'"OFEN ARTICLES,L100"$ PRINT 


D$"READ ARTICLES,R"R? INFUT 
CA$: FOR I := 1 TO 6% INFUT D 
O$(I)? NEXT ? FRINT D$"CLOSE 
"4 FRINT D$"FR#0" 

FOR I = 1 TO 6; VTAE 5 + I: 
HTAB 15 PRINT LI$(I)" : “DO 
$(CI)!t NEXT : VTAE 224 HTAB 1 
t PRINT "FRAFFEZ UNE TOUCHE" 
5 GET Z$: RETURN 

REM 
REM MK MON KK KM OC HEC 
x ANNULATION x 
HOMKKOK MON NK OKON OK DAC OCR OKON 


IF Ki > 0 THEN 2000 

GOSUE 2020: VTAE 22: HTAE 1 
ft CALL  - 868: VTAB 22: HTAE 
1: INFUT "ANNULATION CONFIRM 
EE’ ?:99787" IF ZS <> "O0" THEN 
1020 

EEX = 9$NZ = NZ - 15 IF K < 
= NZ THEN FOR I = K TO NZ: 
N#CI) = N$(I + 1)? NEXT 
FRINT D$"OFEN ARTICLES,L100 
"4 PRINT D$"WRITE ARTICLES,R 
"R$ PRINT "ANNULE'"? FRINT D$ 
"CLOSE": FRINT D$"PR#O"SNL = 
NL + 1:LX(NL) = R? GOTO 1020 


REM 

REM OKON MON MK HN HOMO HON MK 
x SAUVEGARDE DE x 
x LA TABLE DE x 
x REFERENCE x 
DMC HONDA DICO DC DC CD DC OC OKON 

IF EEX < > 9 THEN END 


PRINT D$'"OFEN TAELE'"?: PRINT 
D$"WRITE TABLE"? PRINT NZ: FOR 
I = 1 TO NZi PRINT N$(I)? NEXT 
ÿ? PRINT NLi FOR I = 1 TO NL: 

PRINT LX(I)$ NEXT # FRINT D 
$'"'CLOSE"{ PRINT D$"FR#0"3 END 


Z = FEEK (222)3 IF Z = 5 AND 
EX = 1 THEN 1055 

PRINT D$"CLOSE"? IF Z = 5 OR 
Z = 6 THEN FRINT "CETTE DIS 
QUETTE N’EST PAS LA BONNE"? FOR 
Z = 1 TO 1500? NEXT ?t GOTO 1 
020 

FRINT "ERREUR NO "Z'" DANS L 
À LIGNE " PEEK (218) + 256 x 

PEEK (219)% PRINT : PRINT " 
FRAPPEZ UNE TOUCHE"}$ GET Z$ 
$ GOTO 1020 
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Il ne s'agit là que d'un programme plutôt 
rudimentaire, mais seules nous importent 
vraiment les méthodes de gestion des 
fichiers, qui méritent quelques commentaires: 

-— TABLE est 


le fichier séquentiel où se 


trouve stockée la table de référence. En 
mémoire, la table est chargée dans le tableau 
N$. 

_— Le tableau L% contient les adresses 
libérées par l'annulation d'articles qui sont 
donc disponibles pour de nouveaux 


enregistrements. Sur disquette, ces adresses 
sont stockées à la suite de la table de 
référence dans le même fichier TABLE. 

-— ARTICLES est le fichier à accès direct où 
sont stockées les données concernant les 


différents articles. La longueur des 
enregistrements (ici fixée à 100 de façon non 
significative), dépend bien sûr du nombre des 
données et du nombre de caractères que 
comporte chacune d'elles. 

_— Dans la procédure de recherche 
dichotomique (lignes 50 à 57), K indique la 
position d'un code donné dans la table 
(position virtuelle si l'article en question 


n'a pas encore été créé). K1 est fixé à -1 si 
le code-article existe; il est toujours 
positif dans le cas contraire. La longueur 
d'un code dans la table est forcée à 6 
caractères par ajout de blancs si nécessaire. 
L'adresse corres- pondante dans ARTICLES se 
trouve simplement à la suite du code; ceci 
évite d'avoir à gérer deux tableaux pour les 
codes et les adresses (Cf lignes 1080, 1130). 
Pour retrouver l'adresse, il suffit de 
prendre la partie de la chaîne qui se trouve 
au-delà du sixième caractère. 


- En cas de création d'un article dont le 
code n'est pas le dernier de la liste dans 
l'ordre alphabétique, il faut décaler la 


table en conséquence (ligne 1125). De même si 
l'on annule un code qui n'est pas le dernier 
de la liste (ligne 3020). 

En fin de programme, si la table de 
référence a été modifiée (ajouts ou 
supressions), il faut la sauver sur disquette 
(lignes 8000-8010). La variable EE% signale 
ces éventuelles modifications. 


b) Table de référence "tronquée" en mémoire 


Cette méthode repose sur les mêmes principes 
que la précédente, mais peut s'appliquer à 
des situations dans lesquelles le nombre 
d'éléments de la table de référence et la 
longueur des codes rendent problématique 1e 
stockage des deux données "code + adresse!" en 
mémoire centrale. 


La solution envisagée ici consiste alors à ne 
garder en mémoire que les codes (ce qui 
permet d'effectuer des recherches rapides) et 
à utiliser un fichier à accès direct, dont 
les enregistrements sont classés dans l'ordre 
des codes, contenant les adresses. 


En reprenant le programme ci-dessus, la 
récupération des données s'opère comme “uit 
(ADRES étant le fichier des adresses) 


2020 PRINT DS$"OPEN ADRES,L5" : PRINT D$'"READ 
ADRES, R'K : INPUT R : PRINT D$"OPEN ARTICLES, 
L1007:2 5 


Dans la procédure de recherche dichotomique, 
LÀ n'est plus nécessaire de préciser 
LEFT$(...,6), puisque N$ ne contient plus que 
les codes. 


En ce qui concerne la mise à jour du fichier 
des adresses, deux solutions sont 
envisageables 

** Mise à jour immédiate : en création par 
exemple, on aurait alors 


1125 PRINT DS$"OPEN ADRES, L5":1IF K% NZ THEN 
GOTO 1128 


1126 FOR L=NZ TO K STEP-1 R1=L : R2=L+1 
PRINT D$"READ ADRES, R'R1 : INPUT Z : PRINT 
D$'"WRITE ADRES, R"R2 : PRINT Z : NEXT 


1127 FOR L=NZ TO K STEP-1:N$(L+1)=N$(L):NEXT 
1128 PRINT D$"WRITE ADRES, R"'K : PRINT R 
1130 NZ=NZ+1 NECKI=S$ 28 60 5 


C'est la solution la plus simple à mettre en 
oeuvre, mais elle risque parfois d'obliger 
l'utilisateur à patienter un certain temps 
devant son écran si l'article créé ou 
supprimé se trouve en début d'une liste 
longue. 


** Mise à jour en fin de traitement : les 
décalages du fichier des adresses sont alors 
effectués à l'issue d'une phase de création 
ou de suppression. 


On peut, par exemple, stocker les codes et 
les adresses des articles créés dans un 
tableau annexe puis, en fin de traitement, 
reprendre chaque code, localiser sa position 
K dans la table et mettre à jour le fichier 
des adresses. 


2. Fichiers non séquentiels à accès direct 

Si nous rebaptisons nos articles 
"composants", on peut admettre qu'ils entrent 
dans la nomenclature de produits plus 
complexes, et que l'on veuille également 
gérer ces nomenclatures sur Apple. Une de ces 


nomenclatures se présenterait sous la forme 
d'une liste de codes-articles, avec pour 
chacun d'eux la quantité du composant 


correspondant qui 
du produit concerné. 
susceptible d'évoluer, 
pouvoir modifier 
un code donnés. 


entre dans la composition 

Cette liste étant 
il faudrait en outre 
rapidement une quantité ou 


solutions sont 
que nous examinons ici 
sache quel est le nombre 
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Là encore, bien des 
envisageables. Celle 
suppose que l'on 
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maximum des composants par nomenclature et 
que l'utilisation non optimale de la capacité 
des disquettes ne soit pas pour nous un 
problème fondamental. Supposons donc que l'on 
mette 10 nomenclatures (désignées par un code 
à 2 caractères) par disquette et que chacune 
comporte au maximum 100 composants. 


On affecte à 
compris entre 
fichier à 

enregistrements 


chaque nomenclature un chiffre 

O0 et 9 (Ck) et l'on utilise un 
accès direct dans lequel les 
O0 à 100 (1 à 100 pour les 
composants) correspondent à la première 
nomenclature, les enregistrements 101 à 201 
(102 à 201 pour les composants) à la seconde, 
et ainsi de suite. 


Pour chaque nomenclature, le premier 
enregistrement se trouve à l'adresse 
RO=101#*C% ; on peut y stocker le code et le 


nombre de composants (NC) dont les données 
sont mémorisées dans les enregistrements RO+1 


à RO+NC. In outre, on conservera en mémoire 
la liste des codes-nomenclatures avec les 
chiffres C# correspondants (qui sera stockée 


dans un fichier séquentiel). 


Voici quelques procédures liées à ce type 


d'organisation 


** Affectation d'un C% à une nomenclature 


nouvelle, après avoir vérifié que NN est 
inférieur à 10 et que CN$ n'existe pas déjà 
(NN=nombre de nomenclatures, NO$-table des 
nomenclatures, CN$=code de la nomenclature) 


10 CN$=LEFT (CN$+" ",2) 

20 FOR I-=0 TO 9: Z=0 : 
VAL(MID$(NO$(J), 3))=I THEN Z=1 : J=NN 

30 NEXT : IF Z=0 THEN C%=I : I=9 : RO=101*C% 
UO NEXT : NN=NN+1:NO$(NN)=CN$+STR$ (CH): ... 


FOR J=1 TO NN : IF 


#** Création d'un (NOMENC=f ichier 


des nomenclatures) 


composant 


PRINT D$'"OPEN NOMEMC, 
PRINT 


10 NC=NC+1 : R=RO+NC : 
L100" : PRINT D$"WRITE NOMENC, R'R : 
(données) 


** Récupération des données d'un composant 


situé en Ième position dans la liste : 


10 R=RO+I : PRINT D$"OPEN NOMENC, L100" 
PRINT D$"READ NOMENC, R'R : INPUT 


3. Fichiers à accès direct avec pointeurs 
Gardons notre problème de nomenclatures à 
titre d'exemple. lne autre façon de le 
résoudre pourrait se décomposer ainsi : 


a) Création d'une table de référence, avec 
codes et adresses (cf. supra) 


b) Création d'un fichier à accès direct (cf. 
supra) mémorisant, pour chaque nomenclature, 
le code, le libellé,..., le nombre de 
composants et les adresses des premier et 
dernier de la nomenclature dans le fichier 
des composants. 
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c) Création d'un fichier des composants 
(séquentiel à accès direct) mémorisant pour 
chacun d'entre eux le code-article, la 
quantité et l'adresse duü composant suivant 
pour la même nomenclature. Un caractère 
spécial à la place de cette adresse signale 
que l'on est arrivé au dernier composant 


d'une nomenclature donnée. 


d) I1 faut en outre stocker dans un fichier 
le nombre total de composants enregistrés 
(toutes nomenclatures confondues), afin de 
savoir à quelle adresse écrire les données 
d'un composant nouvellement créé. 


L'utilisation de ce type de structure ne pose 
guère de problèmes. Soient: 
-— NT : nombre total de composants 
A1 : adresse du premier composant pour 
une nomenclature donnée 


-- A2 : adresse du dernier composant pour 
une nomenclature donnée 

_— AS : adresse du composant suivant pour 
la même nomenclature (0 si dernier 
composant ) 

_- COMPO : fichier des composants 

-- NOMENC : fichier des nomenclatures 


** Création d'un composant : 


. enregistrement des données dans COMPO à 
l'adresse NT+1, avec AS=0 

. enregistrement de AS=NT+1 pour le compo- 
sant situé à l'adresse A2 

. enregistrement de A2=NT+1 dans NOMENC 


** Recherche d'un composant 


: lecture de l'enregistrement situé à 
l'adresse A1 (on connait donc AS). Si le 
code-article est celui que l'on recherche, 


tant mieux ! 

. sinon, lecture de l'enregistrement AS ..., 
et ainsi de suite, jusqu'à ce que l'on trouve 
ce que l'on cherche, ou bien AS=0. 


Si l'on doit accéder rapidement à un 
composant donné, cette méthode est 
certainement moins efficace que la précédente 
qui, à partir d'une liste imprimée . des 
différents composants de la nomenclature avec 
leur numéro d'ordre, permet d'accomplir ce 
genre de recherche sans perte de temps. 


Mais la méthode des "pointeurs" peut trouver 
à s'appliquer dans de nombreuses situations : 


. ignorance du nombre maximum d'éléments par 
chapitre (nos nomenclatures) 

. souci de ne pas "gaspiller" de place sur la 
disquette 

. mémorisation d'un nombre limité d'éléments 
par chapitre, avec roulement (on mémorise par 
exemple 10 évènements, l'enregistrement d'un 
onzième provoque l'écrasement du premier). Il 
suffit en effet de modifier les différentes 
adresses (dont A1 qui devient l'adresse du 
deuxième) et d'enregistrer le nouvel élément 
à l'ancienne adresse du premier d'entre eux. 
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West Coast Computer Faire (WCCF) 
à San Francisco vient de confirmer, avec ses 
100 conférenciers, 600 exposants et 40.000 
visiteurs en trois jours, le dynamisme de 
l'industrie américaine de l'informatique 
individuelle. N'oublions pas que 80% des 
ordinateurs individuels dans le monde se 
trouvent aux Etats-Unis; par ailleurs, 80% 
des ordinateurs individuels vendus dans le 
monde en 1981 ont été fabriqués aux 
Etats-Unis. Le marché américain devrait 
dépasser un million d'unités en 1985, contre 
300.000 en 1981. A la 7ème WCCF, le dynamisme 
le plus marquant était celui de tous les 
développements réalisés autour de l'Apple, 
que ce soit pour ses périphériques, ses 
logiciels d'application ou ses lœæiciels de 
base. 


La septième 


Les périphériques 


une liste 
qu'il est 
Toutefois, 
marché, il 
succès de 


I1 serait difficile de dresser 

exhaustive des périphériques 

possible de relier à un Apple. 

parmi les derniers apparus sur le 

est intéressant de noter le 

quelques-uns d'entre eux : 

- la reconnaissance vocale, avec 64 mots pour 
300 dollars; 

- la synthèse vocale à partir d'un texte 
rentré au clavier (375 dollars); 

- la musique synthétique d'une très grande 
qualité; 

- les périphériques de communication et 


l'annonce de réseaux locaux; 
- les disques durs 5 pouces et 8 pouces; 
- les imprimantes graphiques. 


Logiciel d'application pour DOS 3.2 ou 3.3 


Environ 5.000 logiciels d'application pour 
l'Apple II sont actuellement commercialisés 
sur le marché américain. Ces logiciels 
peuvent être classés en trois grands domaines 


les lœiciels professionnels, 
éducatifs, et les jeux. 


les logiciels 


Quatre types de logiciels professionnels 


connaissent un vif succès 


1) Les lœiciels de traitement de texte, dont 
les performances deviennent comparables à 
celles de machines dédiées pagination 
automatique, possibilité de souligner, 
d'inverser des paragraphes, de disposer (en 
anglais) d'un dictionnaire de 50.000 mots 
avec avertissement des fautes d'ortographe 
éventuelles, aide à la mise au point de 
formes grammaticales, à la mise en page 
automatique de lettres, ... Une vingtaine de 
logiciels de traitement de texte pour Apple 
étaient en démonstration, dont les principaux 
étaient SuperScribe II, Magic Window, Apple 
Writer II, Executive Secretary, Easy Writer, 
Letter Perfect, Wordstar, Write-on et Zardax. 


2) Les logiciels d'aide à la décision dont 
les publicités vantent le temps considérable 
qu'ils font gagner à leurs utilisateurs pour 


la mise au point d'un budget, l'analyse d'une 
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enquête ou la simulation des effets d'un 
changement de paramètre. Parmi ces logiciels, 
une dizaine se sont imposés dont Visicalc, 
Personal Finance Manager, Tax Planner, Micro 
Planner et Micro Finesse. Ce type de lœiciel 
connait un succès considérable outre- 
Atlantique. 

3) Les logiciels de gestion de base de 
données, qui permettent à un non-informa- 
ticien de travailler sur un fichier en 
bénéficiant d'énormes possibilités. Parmi les 
logiciels les plus connus, on retrouve DB 
Master, PFS, CCA DMS, Data Factory et File 


Fax. 
H) Les logiciels de gestion qui sont des 
versions adaptées à l'Apple des logiciels 
déjà rôdés sur mini-ordinateur (comptabilité, 
facturation, paye, ...). Plusieurs sociétés 
” se sont spécialisés dans la conception de ce 
sunsenet type de logiciel, en particulier Micro Lab, 
Continental Software, Broderbund et Peach- 
tree: 
CARTE A PARTERS 6502 Parmi les logiciels éducatifs, ce sont les 
; logiciels réalisés pour l'apprentissage des 
disciplines scientifiques qui connaissent le 


LE SYSTEME D'EXPLOITATION plus grand succès, tels les produits de North 


Strategy ou de Northware pour les 


DU CE] 172 MONOPOSTE/MULTIPOSTE mathématiques. Les didacticiels de lecture 


+ POUR UNE PROGRAMMATION SIMPLIFIEE et/ou écriture comme Magic Speli marchent 
aussi très bien. Enfin, il faut souligner 


+ POUR DIVISER PAR 20 LA LONGUEUR l'intérêt de lœiciels d'apprentissage de 
DE VOS PROGRAMMES disciplines non scientifiques : Apple Music 
+ POUR GERER DES MEMOIRES DE 140 K Theory en musique, Supermap en géographie, ou 
A 120 MEGAS Stellar Astronomy pour apprendre à repérer 
« POUR GERER VOS FICHIERS SEQUENTIELS les étoiles. Et la liste n'est en rien 
INDEXES MULTICLES exhaustive ! Dans le domaine de l'éducation, 
« POUR GERER VOTRE ECRAN PAR MASQUES remarquons aussi la percée du langage Logo à 


DE SAISIE (ADAPTABLE AUX CARTES 80 COLONNES) a T° WCCF . Roi ce À re su 
an aux ogicielis e eu, ils connaissen 
+ POUR GERER VOTRE IMPRIMANTE PAR une floraison exceptionnelle et atteignent 


MASQUES D IMPRESSION des niveaux de performance remarquables. 


LA VERSION MULTIPOSTE VOUS ASSURE : Eïn complément de cette brève revue, 
- LA MISE EN COMMUN TOTALE n'oublions pas le développement de la carte Z 
ti 80, deux cartes 8088 avec MS DOS rendant 

Fe N 1! A : ' A 
DISPOSANT DE LEUR PROPRE UNITE CENTRALE re cOMDAtEUREr caves =; PO TELEUr 
individuel IBM, les extensions mémoire 128K 


et la diffusion de plus en plus grande du 
langage Forth. 



































Fconomisez de la place sur vos disquettes 


Vous pouvez économiser un secteur chaque fois 
que vous enregistrez un graphique haute 
résolution sur une disquette. Il suffit pour 
cela d'effectuer un BSAVE avec une longueur 
de %$1FF8, ce qui est suffisant comme on peut 
le constater avec "Les adresses du 
graphique", dans Pom's numéro 1. 


En effet, les quatre premiers octets 

mémorisés avec une image haute résolution 

me contiennent l'adresse et la longueur du 

! É ne fichier. La sauvegarde d'un fichier de 

informatique longueur $2000 consomme par conséquent $2004 

service octets. La syntaxe de la sauvegarde d'une 

3, rue Meyerbeer, 06000 NICE, tél. (93) 87.74.67 image haute résolution en page 1 doit donc 


être : PRINT D$"BSAVE IMAGE, A$2000, L$ 1FF8". 
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Apprentissage 
de l’assembleur (II) 





Notre propos n'est pas ici d'écrire un manuel 
sur l'assembleur d'une part, je ne m'en 
sens pas la compétence;. d'autre part, il 
faudrait que Pom's puisse paraître à une 
fréquence plus grande. Mais surtout, comme 
vous avez pu le constater par la biblio- 
graphie de mon premier article (Pom's 3), 
nous avons l'embarras du choix en matière de 
bons manuels; je vous cite pour mémoire le 
tome III de "La pratique de l'Apple II", aux 


Hitions du PSI. 


Cependant, 
faut la 


un bon manuel n'est pas tout; il 
pratique, et la meilleure manière de 


Seize, mais Ün-Six. C'est un pli à 
qui évite la confusion avec les 
décimaux, surtout quand le nombre 
hexa concerné ne comporte pas de lettre. 
Rassurez-vous, au niveau de l'Apple, iln'y a 
jamais plus de quatre chiffres hexa ensemble! 


n'est pas 
prendre, 
nombres 


Pensez binaire 


Chaque fois 


que j'ai un problème, je me 
reporte à la représentation binaire des 
valeurs que je dois traiter. C'est toujours 
plus simple de construire quelque chose à 
partir de bonnes définitions, et de revenir à 


celles-ci quand on est en panne. 


l'acquérir consiste à  décortiquer des 
programmes déjà écrits. C'est précisément ce p | 
. : > ar exemple, tout le monde sait que, dans la 
Mid. NOUS -DrOPOrRs du moe gens 50 représentation négative d'un nombre, il y a 
précédent article et le prochain, en attirant un bit dans la position la plus significati 
votre attention sur les pierres d'achop- du mot (en l'occurence AP SABRE RbAAA® où 
. . # . . . 
Mes Er Se Je.ies connais, Je travaille en simple précision). Mais comment 
i trouve-t-on l'opposé de 00100101 ? Dans tous 
3€ j . les b S à 
Dans cette deuxième partie, je m'adresse plus Fi SAALON PE ANA RRESMR à SEE EDR Te 
prtioullierement MR PÉCBE SPORTS | moins etant m'échappe Ré ES 4 ben te $ Li 
expérimentés, en exposant à ma maniere les 1éddition +8" biñitite "Étañt tra r cil 11 
points qui m'ont fait souffrir: Puissent les M Ébrrit "ds ni ranndfEh que La di EA fase 
plus expérimentés parmi les lecteurs, qui Adabre ét dé 8ôn et” As 0 RE dr 
auront le courage de poursuivre cette lec- qu'à trouver un nombre ui AS EE LV P ue 
ture, y découvrir certaines vérités qui leur hümbre:as/déder ti 0 d > 4 à eve an 
avaient peut-être échappé ! P pee» «Pi partout 
Pensez hexa ! 1.110019 
L'hexadécimal, ce n'est pas diffile, et ça 1: y'a ün1 te eie pe dan. voéi Vase LE 
eut t ses . 
DS APPOr LEE Br08 plus à gauche, mais comme il disparait de 
| ge tÂdot 2 Es Se , 
Pour ceux qui partagent ma mauvaise memoire, tee as MN er ét aies Re aus me 
un procédé mnémotechnique peut rendre de ; jicateurs du sa CPE à PKLE  FAOORREES OS 
fiers services. Plus le truc semble ridicule, è 
; d à 
plus i1 a de chances d'être retenu REM - Je ne veux chagriner personne et recon- 
D nais, avec le reste de l'univers, la réalité 
D ouce du complément à Deux, qui donne des 0 partout 
D Dreize . SA une retenue qui se propage à gauche, et 
ifférencions-la du complément à Un, ou COM- 
psome Équateurze PLEMENTATION LOGIQUE, avec des 1 partout. 
F4 = k 
M 21.-pm pour a Fr, MAÈS tout 2e muce Revenons à notre exemple; la même opération 
sait que A représente dix, et F est seize si rbSsostsistent dé Sfar] 1é ri 
moins un, ou plutôt $100: 2 A An Ne OS 
$F=$10-$1 ("Un-Zéro moins Un") s 25 
Tout d'abord, soulignons la présence du signe DB 
ns" cela signifie que ce qui suit est à 
exprimé en hexadécimal. Enfin, pourquoi 1 00 
énoncer ‘"Un-Zéro moins Un" ? À ce propos, il 
ést utile, quand on utilise une autre base D'ailleurs, la représentation négative de 
que la base décimale, de prendre l'habitude l'octet a été choisie précisément pour obéir 
d'individualiser chaque chiffre: ainsi, $16 aux règles de l'addition utilisées par le 
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microprocesseur. Ce dernier ignore complète- 
ment les nombres négatifs. Il se préoccupe 
simplement de savoir si le bit le plus signi- 
ficatif dé l'octet est positionné (bit 7). Si 
tel est le cas, il positionnera de la même 
manière le bit le plus significatif du mot 
d'etat, bit 7, que nous autres humains, nous 
empressons d'appeler N, ou indicateur de 
signe négatif (ce que se refuse à faire Lance 
Leventhal dans son manuel = cf. Biblio. - 2) 
Il ne vous a pas échappé, à la lecture du 
précédent article, que cet indicateur servait 
à bien d'autres choses que de déterminer si 
un octet est négatif. Le moniteur l'utilise 
par exemple savoir si un caractère est frappé 
sur le clavier, l'octet de l'accumulateur 
prenant immédiatement un bit "Un!" en position 
la plus significative, alors que, pour 
permettre la lecture il avait été mis à zéro 
précédemment par "STROBE" (Octet $C010 de la 
mémoire). Il n'y a rien de bien négatif dans 
tout celà ! 


Les limitations du "huit-bits!" 


La mémoire de l'Apple II fait au maximum 6HK. 


Cela se représente en binaire par un "Un" 
suivi de seize Zéros. Comme on utilise 
l'adresse zéro, on voit qu'il faut seize bits 
pour adresser toute la mémoire. On ne 


s'étonnera pas de savoir que le registre qui 
contient l'adresse de l'instruction suivante 


-le "Registre Contrôleur de Séquence", ou 
"Compteur Ordinal" (PC pour Program Counter )- 
est un registre de deux octets. Il est 
d'ailleurs le seul de ce genre. 


L'accumulateur et tous les autres registres 


sont des huit-bits. 


On conçoit la difficulté qu'il y a à 
manipuler des adresses de seize bits à l'aide 
de registres et de mémoires qui n'ont que 
huit bits: il faut à chaque fois doubler les 
instructions de transfert du type LDA et STA 
(quand on passe par l'accumulateur). Il faut 
done s'habituer, quand on lit ou écrit un 
programme, à saisir ces instructions par 
groupes de quatre et à réserver en mémoire 
deux adresses contiguës pour stocker les 
adresses. Pour tout simplifier, la partie la 
plus significative de l'adresse se place 
généralement dans le second octet (il parait 
que cela permet une exécution plus rapide!). 
Remarquez que votre grande pratique des 
programmes en BASIC vous a familiarisés avec 
les instructions du genre: 
JO LET FIN = PEEK( 30)+PEEK(31)*256 
50 POKE FIN, 96 

ce qui n'est en fait que du langage machine 
transposé en Applesoft. 


fixer les idées, supposons que nous 
soyons en train de fabriquer un fichier 
binaire en mémoire et que nous voulions 
mettre un caractère "fin de fichier" quand 
celui-ci sera rempli (91 en décimal, ou $60 
en hexa, est effectivement le symbole de fin 
de fichier pour le programme AppleWriter). 
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Pour 


Tr CO 


Nous sommes obligés d'avoir un compteur, qui 
pointe sur la fin de notre fichier (et qui 
sera incrémenté à chaque fois que l'on stocke 
un nouveau caractère en mémoire). Comme ce 
pointeur doit pouvoir adresser sur seize 
bits, il nous faut lui réserver deux mémoires 
contiguës = dans notre exemple 30 (partie 
basse) et 31 (partie haute)-. 
Essayons de traduire ces 

langage machine (transposé 

bon assembleur, en 


instructions en 
en Applesoft) en 
n'oubliant pas que si 
Applesoft affecte et réserve une place 
mémoire aux variables quand elles se 
présentent, le programmeur en langage machine 
doit les réserver à l'avance et, de 
préférence, les déclarer en début de 
programme . 

FIN EQU $1E 

LDA £$60 

LDX £$00 

STA (FIN, X) 

(30 et 31 décimal donneront $1E et $1F) 


On remarquera que 
comporte 
voir 

tion), 
registre 


l'instruction LDA, qui 
bien des modes d'adressage (huit, 
article précédent pour leur significa- 
n'a pas l'adressage indirect sans un 
associé. Il a fallu utiliser l'a- 
dressage indirect préindexé par X. Nous avons 
pris le soin de mettre le registre-X à zéro 
avant de l'utiliser, sinon nous serions allés 
quérir l'adresse ailleurs qu'en $1EÆ$1F. 


Si nous avions choisi l'adressage indirect 
post-indexé par Y [à savoir STA (FIN),Y] , il 
aurait fallu également s'assurer préala- 
blement que le registre-Y contienne bien 
zéro, faute de quoi on serait bien passé par 
$1E-$1F, mais l'adresse trouvée dans notre 
pointeur se serait ajoutée au reliquat 
contenu dans le registre-Y. 


On notera avec satisfaction que l'instruction 
va chercher toute seule, dans les deux octets 
contigus qui constituent le pointeur ($1E et 
$1E+1), la totalité de l'adresse où ranger 
notre constante. Mais il faut parfois gérer 
soit-même les deux parties de l'adresse: Par 
exemple quand on souhaite faire progresser le 
pointeur FIN, après avoir mis un nouveau 
caractère dans le fichier: 


AJOUT INC FIN 
BNE BOUCLE 
INC FIN+1 
BNE BOUCLE 


La première 
basse de 
£$FF et 
traitement. 
basse prend 
la capacité 
se positionne 


instruction actualise la partie 
l'adresse ($1E), jusqu'à la valeur 
se rebranche sur la boucle de 

Au tour suivant, cette partie 
la valeur £$00, car $100 dépasse 
d'un octet, l'indicateur Z(éro) 

vrai (1), et le test BNE n'est 
pas vérifié. Il faut traiter soi-même le 
report, ce que je fais dans la suite du code 
en actualisant la partie haute ($1F) par INC 
FIN+1. 
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11 faut espérer que le deuxième BNE est 
vérifié, faute de quoi je serais 
parvenu à écrire dans la mémoire morte! Mais 
rassurez-vous : auparavant, le DOS ne se 
serait pas laissé passer sur le corps sans 
réægir! 


N.B. 
toujours 


La page zéro est arrivée ! 


Pour que mes pointeurs fonctionnent avec 
l'adressage indirect, il faut qu'ils soient 
choisis dans la page zéro, c'est-à-dire dans 
les 256 premières positions de mémoire, $00 à 


$FF, les seules qui soient adressables en un 
seul octet. Mais attention, il n'y en a que 
256 et, si vous ouvrez votre Manuel de 
Référence à aux pages 74 et 75, vous 


constaterez que la fameuse PAGE ZERO est plus 
encombrée que la place de l'Etoile à six 
heures du soir. L'utilisateur ne devra pas 
émpiéter sur les systèmes auxquels il risque 
d'avoir recours (DOS, bien sûr, mais aussi le 
moniteur dont on va utiliser abondamment les 
sous-programmes et également le BASIC de 
service, si on veut parvenir à un bon 
mixage...). 


La pile (STACK) peut apporter une solution de 
rechange, pour certains stockages temporai- 
res. Mais c'est une solution à utiliser avec 
prudence (on n'est pas en FORTH !) et qui 
demande une saine gestion (de pile). 


lhe solution de rechange : les compilateurs 


OM assiste actuellement à un certain engoue- 
ment pour les compilateurs. En effet le BASIC 
interprété se montre trop lent dans certaines 
applications. Je citerai à ce sujet une étude 
parue dans "Cider Press" et qui comparait les 
temps d'exécution d'un petit programme de jeu 
écrit en différents langages. Il s'agissait 
d'un jeu de Marienbad, l'Apple jouant contre 


lui-même. Les résultats (étonnants) furent 
les suivants: 

BASIC Integer 8 minutes 

Pascal 2 minutes 

Forth 1 minute 

Langage Machine 1 seconde 


Certes, le BASIC compilé fait gagner du temps 
en exécution ,mais ce temps est payé au prix 
d'un temps de chargement plus long des 
programmes . Eh effet, la compilation est 
prolixe et le programme résultant est 
beaucoup plus long que le programme BASIC 
initial. Le temps d'exécution sera raccourci 
par rapport à celui obtenu en BASIC 
interprété, sans atteindre - tant s'en faut - 
la vitesse d'un programme écrit en langage 
assembleur. Par contre, si l'on part d'un 
programme existant en Applesoft, la 
compilation sera beaucoup plus rapide qu'une 
compilation manuelle; celle-ci consiste à 
traduire chaque instruction BASIC en une 
série d'instructions assembleur (pour plus de 
détails cf."Converting Integer BASIC to As- 
sembly Language" - Biblio 1). 


Mais la meilleure solution sera de programmer 
directement en langage-machine ou, si l'on 
part d'un programme BASIC, de reprogrammer 
les parties du programme qui nécessitent une 
exécution plus rapide. Si limitée soit-elle, 
l'expérimentation que mes amis et moi-même 
avons faite des compilateurs disponibles 
s'avère plutôt décevante . Il semble que les 
compilateurs actuels tolèrent assez mal les 
programmes BASIC qui n'ont pas été écrit 
spécialement en vue de la compilation. Cette 
allergie se traduit par un certain nombre de 
messages d'erreur qui interrompent la 
compilation. S'il faut ré-écrire le programme 
pour pouvoir le compiler, où se trouve le 
bénéfice? Tout donne à penser que nous sommes 


en présence de compilateurs de première 
génération qui auront des descendants plus 
civilisés. 


the optimisation facile 

S'il s'agit avant tout d'améliorer la vitesse 
d'éxécution, tout en réduisant la taille du 
code, le programme AOPTIMISER apporte une 
solution à considérer. Il s'agit d'un petit 
logiciel de ‘“Sensible Software" qui est 
extrêmement performant. En deux passages, il 
réduit la taille des variables à une seule 
lettre et condense en une ligne toute série 
d'instructions susceptibles logiquement de 
figurer sur une même ligne. Il fait donc, en 
mieux, ce que fait le CRUNCHER de DAKIN (voir 
Pom's 2). 


lh espoir déçu 
Dans la suite 
compilation manuelle, 
lui- nous a donné, deux ans plus tard, un 
outil automatisé avec "SPEED/ASM" (chez "On 
Line"). J'avoue que l'annonce de ce logiciel 
m'avait mis l'eau à la bouche (N'est-ce pas 
le propre de toute bonne publicité !). 


logique de son article sur la 
Randy HYDE -toujours 


veut de nature à satisfaire 
aux langage machine qui 
profiter de l'efficacité 


Ce logiciel se 
les réfractaires 
veulent néanmoins 


d'un assembleur. Il s'agit d'une extension de 
votre assembleur lui donnant les capacités 
d'un macro-assembleur. SPEED/ASM permet de 
traduire ("à la main") un programme BASIC en 
programme assembleur, pratiquement instruc- 
tion par instruction ou, pour être plus pré- 
cis, à raison de deux instructions SPEED/ASM 
(au minimum) pour une instruction BASIC; en 
effet chaque opérande fait l'objet d'une 


instruction séparée. 


L'idée est 
satisfaisante 


séduisante, la réalisation moins 

on y introduit une phase 
supplémentaire, car on n'est pas dispensé de 
l'assembleur et, en outre, même s'il est 
limité à une vingtaine d'instructions, il 
faut apprendre un nouveau langage, une sorte 
d'assembleur hybride. Peu satisaisant en 
première instance, SPEED/ASM est susceptible 
d'être réhabilité en appel. 
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Conclusion 


Tout cela nous laisse peu d'espoir d'échapper 
au code machine et à l'assembleur. Mais le 
mal n'est pas bien terrible. La connaissance 
du langage machine nous permet de mieux com- 
prendre l'Apple et de mieux utiliser le BASIC 
(ef. "All about Applesoft'", Biblio - 4). 


La solution, pour être efficace, consiste à 
mélanger langage machine et Applesoft. Dans 
le prochain article, nous étudierons un uti- 
litaire qui vous permettra d'utiliser votre 
système de traitement de texte pour éditer 
vos listes-source d'assemblage, même si votre 
système de traitement de texte favori n'ac- 
cepte que des fichiers en binaire. Le pro- 
gramme annoncé est un parfait exemple de l'u- 


Courrier 


des lecteurs 





Abonné depuis peu à votre revue, j'ai pu en 
apprécier la qualité des articles. Néammoins, 
J'aimerais faire une remarque. Je souhaite 
que la partie "initiation" à l'utilisation de 
l'Apple et de ses langæes n'empiète pas sur 
les articles de fond ou les programmes 
élaborés destinés aux amateurs "avertis"... 
Mais pour ne léser personne, je pense qu'il 
vous sera nécessaire d'augmenter le nombre de 
pages de chaque numéro, ainsi tout le monde 


sera satisfait. A moins qu'une parution 
bimestrielle ou mensuelle vous semble plus 
avantageuse. 


En attendant, je vous envoie une disquette 
contenant deux programmes que j'ai écrits en 
collaboration avec un de mes amis, Thierry Le 
Tatlee"ii: 


** Jacques Tran-Van, Marseille ** 


Réponse 
Nos lecteurs, étant tous des utlisateurs 
Apple, représentent par la force des choses 


un marché somme toute encore assez restreint; 
nous ne pouvons pas particulariser la revue 
en la dédiant exclusivement aux "pros"! C'est 
pourquoi nous nous efforçons de publier dans 
chaque numéro des articles de niveaux variés. 
Il est possible que nous passions dans 
l'avenir à une fréquence de publication plus 


grande, ou que nous augmentions le nombre de 
pages. Nous devons, avant de le faire, nous 
assurer de rendre Pom's économiquement 
viable. Nous avons fait l'expérience, dans le 
présent numéro, de réduire le texte, ce qui 
revient à l'augmenter de dix pages (par 
rapport au format normal). 
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tilisation simultanée de BASIC et code-machi- 
ne, en prenant le meilleur de chaque monde. 
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L'augmentation la fréquence ou du nombre 
de pages prend plus de temps que prévu 
initialement, car la Commission Paritaire des 
revues de presse a refusé de nous reconnaître 
en tant que publication. Nous sommes 
considérés comme un organe publicitaire de la 
société Apple et, à ce titre, privé du régime 
postal et du régime de TVA des périodiques. 
Cette blague augmente nos coûts d'au moins 
20%, sans compensation de recette. Nous 
devons donc croître avec plus de prudence ... 


Ceci dit, nous sommes heureux de pouvoir 
publier dans ce numéro de Pom's un de vos 
deux programmes, en espérant publier le reste 


par la suite. 


J'ai acheté les numéros 2 et 3 de votre revue 
et la trouve très intéressante. Je me permets 
de vous envoyer ci-joint quelques remarques : 
1) A propos de l'article de J-F Duvivier 
(Pom's numéro 2) 

Correction en page 19 il ne faut pas 
repasser au clavier entre le moment où l'on 
remplit les mémoires $AASD et AA5F, et celui 
où l'on lance le petit programme, car le DOS 
Les modifie quand il rend le contrôle à 


l'utilisateur. Il faut donc rentrer : *300 
ass AAC icons AMOD:< 0, PAASFE 0.230600: 


2) A propos de l'article de J-L Meillaw 
(Pom's numéro 3) 

M. Meillaul regrette que les gens n'ayant 
qu'un simple Apple II Plus ne puissent 
utiliser le mini-assembler. C'est pourtant 
possible (cf. 5). Correction en page 11, 
Ligne 3 : lire $14 et non $28. 
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3) A propos de "La pratique de l'Apple II, 
volume IIT 

Il y a quelques erreurs quant aux mémoires 
libres pour l'utilisateur: $14, $1B et $1C 
sont utilisés en haute résolution; $F9 est la 
valeur de ROT ; $D6 est utilisé par 
l'Applesoft. En effet, selon E. Agier (Pom's 
3, pe 66), faire POKE 214,255 empêche de 
lister; en fait, POKE 214,x avec x supérieur 
à 127 fait que toute commande (hors DOS) 
tapée à partir du clavier équivaut à un RUN. 
Pourquoi ? 


4) Attention au FLASH ! 

Il m'est arrivé, alors que je tapais un 
programme tout en l'essayant, la mésaventure 
suivante relisant une ligne de programme 
avec la flèche à droite, certains caractères 
changeaient au passage du curseur. Le RESET 
n'y faisait rien; il fallait, c'est le cas de 
le dire, se retaper la ligne. Je viens 
récemment de trouver le pourquoi de cette 
bogue : j'avais pressé RESET alors que 
J'étais en mode FLASH ! Voyons donc les 
détails .…. 


Le manuel de référence Apple nous apprend que 
COUT, la routine de sortie de caractères du 
moniteur, fait avant l'affichæge un AND 
logique entre l'accumulateur, qui contient le 
caractère à imprimer, et la mémoire $32, qui 
contient $FF en mode normal (1'AND ne change 
rien), $3F en mode inverse (on ne garde que 
les 2 bits de poids faible) et $7F en mode 
flash (on garde les 4 bits faibles). Et Le 
tableau des caractères ASCII affichés à 
l'écran nous montre que certains signes en 
mode flash sont représentés en inverse : 
c'est. effectivement ce qui se passe dans le 
moniteur et en Integer. Mais l'Applesoft 
dispose d'un second masque : pour représenter 
tous les caractères clignotants, il fait un 
OR logique entre l'accumulateur et la mémoire 
$F3 qui vaut $0 en mode normal ou inverse, et 
$40 en mode flash (on force à 1 le 3ème bit). 
C'est ce que montrent les routines Flash, 
Inverse et Normal ($F273 ...), et la routine 
OUTDO ($DB5C à $DB66). 


Or, le RESET exécute un programme du moniteur 
qui remet la mémoire $32 à $FF, mais qui ne 
touche pas à la mémoire $F3, chasse gardée de 
l'Applesoft. Ainsi, appuyer sur RESET quand 
on est en mode flash entraîne un mode 
pseudo-normal qui fait que les caractères 
ASCII affichés (dans un LIST ou un PRINT) de 
codes 32 à 63 sont transformés dans Îles 
caractères de 96 à 127 ils paraissent 
normaux, mais repasser dessus avec le curseur 


les change. 


Pour sortir de cette situation, on peut taper 
POKE 243,0 -— ou taper NORMAL - ou encore FP 
(NEW et RESET ne marchent pas). Et comme il 





suffit avant le PRINT de faire POKE 232,32. 
Et l'on imœine bien que 1l'ORA$F3 et le 
AND$32 permettent de varier à sa guise de 
telles combinaisons. 

5) Le mini-assembler à portée de tous 

Dans la disquette SYSTEM MASTER du DOS 5.8, 
le fichier INTBASIC permet de charger sur la 
carte langæe Le BASIC Integer, Île 
MINI-ASSEMBLER, SWEETI6 et le Programmer's 
Aid No.l. Si l'on n'a pas la carte langæe, 
on peut quand même récupérer le 
mini-assembler en chargeant INTBASIC plus bas 
dans 1la mémoire et en modifiant dans le 
programme les adresses de branchement absolu. 
Les opérations à effectuer sont les suivantes 


BLOAD INTBASIC,A$6000 85DD :86 
CALL -151 85E7 :86 
8537 :8 8633:85 
855B:85 8668 :85 
85BF :86 BSAVE MINI-ASSEMBLER, A$8500, L$170 


Le mini-assembler proprement dit est compris 
entre $8500 et S$863C. Mais le fichier va 


jusqu'en $865F, car 11 a à l'adresse 
mémotechnique $8666 1m JMP $8592 vers 
l'adresse d'entrée de l'assembleur. Pour 


utiliser l'assembleur, 11 suffit donc de le 
BLOADer et de faire CALL-151, suivi de 86666. 
Si l'on veut faire cela à partir d'un 
prog ramme Apptesoft, il faut faire 
HIMEM:34048. On peut sans doute appliquer le 
même traitement à l'Integer, mais cela 
devient titanesque. Pour ceux qui n'ont pas 
le DOS 3.3 ni l'Integer, il suffit de 
recopier le listing désassemblé ou non du 
mini-assembleur, qui ne fait que 317 octets, 
plus le JMP $8592 en $8666. 


** Olivier Herz - 78 Chatou ** 
N.D.L:R: 


Merci pour tout ce travail. Malheureusement, 
le manque de place ne nous permet pas de 
reproduire ici le code du mini-assembleur. Ce 
ne devrait pas être dur à trouver, puisque 
les DOS 3.3 sont largement diffusés ! 

Comme nous le fait remarquer un autre 
lecteur, Monsieur Philippe Jaffré, le numéro 
1 de Nibble 1982 publie une lettre dans 
laquelle on montre comment le mini-assembleur 
peut être ensuite déplacé en mémoire. Ceci 
dit, vous pouvez aussi le faire en utilisant 
le programme de déplacement en assembleur du 
numéro 1 de Pom's. 


Suite à la lecture des trois premiers numéros 
de Pom's, voici quelques remarques qui, je 
pense, pourront aîder d'autres lecteurs. 


1) Le livre What's Where in Apple 

Je viens de trouver dans MICRO de janvier 82 
la signification des signes utilisés. La 
syntaxe en est la suivante : /XY/ avec : 


faut bien tirer parti de ses ennuis, cela 
nous amène à ne astuce qui permet d'imprimer Première lettre Seconde lettre 
des minuscules sur l'imprimante, tout en S : subroutine E : entry 
tapant des majuscules dans le listing, ceci P : parameter B : block 
de la façon la plus simple du monde : il H : hardware n : n bytes long 
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L : label 
F : flag 


B : buffer 


2) Personnalisation du DOS 

Afin d'avoir un maximum de place sur chaque 
disquette, il est intéressant quand on 
possède un Apple II mni de la carte langæe 
de n'avoir que sur une disquette de boot le 
langæe complémentaire (INTBASIC pour Apple 
II Plus, FPBASIC pour l'ancien). Or, à chaque 


fois que l'on reboote une disquette après la 
mise sous tension, Le DOS force le chargement 
du langæge dans la carte en écrivant 00 à la 


première adresse de celle-ci. Pour éviter 
cette opération, il faut passer en mode 
moniteur et taper *BFD3 : EA EA EA (ces NOP 


vont remplacer le code 8D 00 E0), puis 
initialiser la nouvelle disquette. 

3) Personnalisez vos disquettes, de P. 
Boutreux 

Tout d'abord, une petite rectification : le 


DOS réserve 12 caractères pour l'information 
"DISK VOLUME ", et non pas 11. Remarque : si, 
après avoir booté une disquette ainsi 
personnalisée, on change de disquette et que 
l'on tape CATALOG, on obtient le nouveau 
catalogue avec l'ancien en-tête, en effet, le 
DOS ne relit pas cette information. Est-il 
possible de l'y amener ? Dans le même ordre 
d'idées, 1e DOS ne relit pas le numéro de 
volume quand il liste un catalogue; que 
faut-il faire ? 


4) Comment court-circeuiter les numéros de 
volume 

St vous voulez empêcher les ordres DOS 
provenant d'un programme d'utiliser le 


contrôle par numéro de volume, il suffit de 
vous mettre en moniteur et de taper 
*BE1E:EA EA DO (qui remplace la séquence C5 
2F, F0 04, c'est-à-dire CMP $2F, BEQ $BE26). 


5) Petite annonce 

Je vends un moniteur portable couleur Thomson 
(08/81) à 2500 FF, l'interface RVB pour Apple 
(revision 0 ou 1, 500 FF), une imprimante 
Seikosha GP80M (09/81) avec logiciel hard 
copy d'écran, 500 feuilles et 2 rubans (2200 
FF le lot). 


** Alain Sorin - 80 rue Rouet de Lisle - 
92000 Nanterre - Tel (1) 721 04 10.** 


N.D.L.R. 


Merci pour tous ces éléments, et bonne chance 
pour la petite annonce, à laquelle nous 
produisons une compagne ci-dessous. 


Je vends un moniteur N/B (10/80) 700 FF, et 
une imprimante à aiguille OKI 40 colonnes 
(friction) avec interface Apple (les deux 
pour 1000 F TTC). 


** Jean-François Duvivier - 1, rue du Sergent 


Blandan - 92130 Issy les Moulineaux - Tel 558 
0578 (le soir) ** 
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Les clubs 


ont la parole 





Groupe Apple de Genève (Suisse) 


de Genève (GAG) est un club 
regroupant environ une centaine d'utili- 
sateurs enthousiastes d'Apple de la région 
Genevoise et de la France voisine. Ce club a 
de nombreuses activités, dont la publication 
d'un journal, GAG'S LETTER, et huit groupes 
d'intérêt sur les sujets suivants : langage 
assembleur 6502, Pascal, matériel, jeux et 
graphiques, introduction au BASIC, télécommu- 
nications, applications commerciales et enfin 
enseignement . Ce club recherche l'échange 
d'idées, d'informations et d'expérience. 


Le groupe Apple 


Contacter Alan J. Ehrlich, Groupe Apple de 
Genève, Ch. Ami-Argand 9, Case Postale 20, 
CH-1290 Versoix, SUISSE. 


Association Hespérides (69) 


L'association Hespérides a été créée 
récemment. Elle est constituée essentiel- 
lement d'experts-comptables équipés de 


matériels de marque Apple et a pour objet de 
favoriser entre ses membres la connaissance, 
la communication et l'échange d'informations 
et d'expériences sur matériel micro-infor- 
matique. 

Le siège social est situé au 63 rue de 
Créqui, 69006 Lyon. 

Président : M. Jacques Calop (79) 07.03.65 
Trésorier : M. Marcel Gorlier (79) 33.25.49 
Secrétaire M. Victor Bérard (7) 893.42.63 


-.. tous trois experts-comptables. 


Club Microtel CESA (78) 


Le club Microtel CESA a récemment ouvert ses 
portes à Jouy-en-Josas. Il dispose 
actuellement de matériels de marque Apple, 
Goupil et IBM. Un intérêt tout particulier 
est accordé à l'utilisation de l'informatique 
individuelle en gestion. 


Contacter Christophe Peslerbes, HEC chambre G 
33, 1 rue de la Libération, 78350 Jouy-en- 
Josas. Tel (3) 956 8000. 


Pom's n° 4 





La prati 


volum 
paf N 


e?2 
icole gréaud- 





Tome | 
jaitiation au Basic de l'Apple 


Dominique Schraen 
Frédéric Lévy 


Nicole Bréaud-Poutiquen 








Micro-informations 





Un_jeu de cartes 


La carte ADALAB facilite l'acquisition et le 
traitement de mesures de laboratoire en temps 
réel. Pour 5200- FF HT, elle offre les 
caractéristiques suivantes entrée 
analogique 12 bits (20 lectures/sec.), sortie 
analogique (50.000 conversions/sec.), _E/S 
digitales (16 bits E/S ou 8E et 8S, horloge 
temps réel 32 bits à compte rebours 
programmable et 2 compteurs/timers 16 bits. 
Le prix inclut un logiciel QUICK I/0 éerit en 
langage machine 6502. De nombreux accessoires 
et logiciels sont disponibles; les logiciels 
réalisent les fonctions suivantes : gestion 
et visualisation de données, présentation 
graphique, ajustement, échantillonage et 
stockage rapide en mémoire vive sur carte 
d'extension. 


La carte ALPHA 6809 permet de disposer 
simultanément du MC 6809E et du MC6502 sur 


Apple II. Cette carte, prenant en charge 
l'interprétation du P-code, accélère très 
sensiblement la vitesse d'exécution des 
programmes Pascal et FORTRAN, sans 
recompilation. Prix : 3.260 FF HT. 

Alpha systèmes = 51 rue Thiers - 38000 


Grenoble = Patrick Binet (76) 87.98.27 


Toujours des cartes ! 


Quatre nouvelles cartes pour l'Apple II et 
l'Apple III MicroClock, MicroTalker, 
MicroPort et MicroSynth. Respectivement, il 
s'agit de cartes horloge (dixièmes de 
seconde, années bisextiles), de synthèse 
vocale, d'E/S parallèle 8 bits et de synthèse 


bruit /musique. 


14/16 Manchester 
(51) 236 2000 - 


March Communications 
Liverpool L16ER. 
Royaume Uni. 


Ltd, 
Tel 


[…L2 
DC. 


Des extensions mémoire ... 


Trois façons d'augmenter la taille mémoire de 
votre Apple 


1. La carte RAM 64KC de Legend rajoute 64K à 
vos U8K, en occupant un seul connecteur et en 
consommant nettement moins. Elle est 
compatible avec Pascal (en remplaçant la 
carte langage si nécessaire) et CP/M. Le DOS 
peut s'y charger, libérant ainsi la mémoire 
centrale. Prix public 3.300 FF TIC. 
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2. L'émulateur de disquette 2*64KDE de Legend 
met à votre disposition un "lecteur de 
disquette" à accès très rapide, et bénéficie 
des mêmes comptabilités que la carte 
précédente. Des utilitaires spéciaux sont 
fournis avce la carte, dont l'un effectue la 
copie complète ou la sauvegarde d'une 
disquette en 16 secondes. Prix public 6.500 
FF TTGe 


cartes sont livrées avec toute une 
série de programmes utilitaires et de 
démonstration. Vous pouvez étendre votre 
Visicalc à plus de 80K avec la carte 128KDE, 
et à plus de 100K avec deux cartes 61K. Les 
documentations en français doivent être 
terminées à la date de parution de Pom's. 
Contacter pour tout renseignement BIP, 3 rue 
de Duras, 75008 Paris. Tel (1) 264 0232. 


Ces deux 


Un bras robotisé pour l'Apple ! 


Pour 200 
troisième bras, 
pas ê: «DAS; 


vous vous offrez un 

en kit, commandé par moteurs 
et comportant cinq axes ou 
articulations. Il pèse huit livres, mesure 17 
pouces et possède trois doigts d'origine. Il 
lui faut du 12 volts à 3 ampères, et celui 
lui donne la force de soulever 10 onces 
(environ 280 2:) la précision de 
positionnement est de 0,1 pouce soit 0,285 
ongle. D'autres extensions que les trois 
doigts peuvent être fixées à loisir; 
certaines sont dé jà réalisées et 
opérationnelles. 


livres, 


Pour la conversion des 
unités plus courantes, 

renseignement, contacter Colne Robotics Ltd, 
1 Station Road, Twickenham, Middlesex. Tel 


(1) 892 7044. Royaume Uni. 


unités anglaises en 
ainsi que pour tout 


Mettez un tigre dans votre moteur ! 


1. La carte 88 


Selon sa publicité, la carte qu'IBM craint de 


vous voir acheter transforme votre Apple en 
ordinateur 16 bits compatible avec le MS-DOS 
du micro IBM. En outre, elle étend votre 


mémoire de 

899 dollars 
West Borkaw 
95110 (USA). 


64K. I1 vous suffit de débloquer 
et de contacter Coprocessors, 50 
Road, Suite 64, San Jose, CA 
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2. La MetaCard 


La MetaCard, outre ces possibilités, permet 
le fonctionnement simultané du 6502 (Apple) 
et du 8088 (IBM), mais exige par contre une 
alimentation séparée (fournie avec la carte). 
Metamorphic Systems, dont nous n'avons pas 
l'adresse, vend sa carte 980 dollars, avec 
l'extension 64K. 


3. Informations complémentaires 


Les deux cartes peuvent être étendues à 128K. 
La MetaCard possède en standard le CP/M-86 de 
Digital Research, le MS-DOS et le Pascal UCSD 
étant en option. La carte 88 offre l'un ou 
l'autre des deux premiers SED en standard, 
l'autre et le Pascal pouvant être acquis en 
option. 


}. Le microprocesseur Motorola 6809 


La société IEF commercialise depuis peu une 
carte comportant 64K de MEV et un 
microprocesseur 6809 fonctionnant en 8/16 
bits. Les 64K peuvent être utilisés en 
simulation de disquette à accès rapide. 
L'ensemble est vendu 4900 FF HT, programmes 
d'application compris. 


IEF- 228/230 rue Lecourbe - 75015 Paris - Tel 
(1) 828 0601. 


LOGICIEL 


Un générateur de programmes 


Encore un générateur de 


programmes pour 
l'Apple ! Avec C.0.R.P., on crée entre autres 
ses masques de saisie et de sortie sans 
savoir programmer . Les programmes sont 


générés en Basic Applesoft et peuvent ensuite 
être modifiés facilement. Il faut avoir un 


Apple 8K et deux lecteurs, ainsi que 235 
dollars US pour le Basic System. La version 
2, qui comporte une disquette d'utilitaires, 
revient à 425 dollars. 

Dynatech Microsoftware Division, 3 New 
gland Executive Park, Burlington, MA 01083 
U.S.A. 


Jong lez avec les disquettes ... 


Avec l'utilitaire LinkDisc, vous pouvez, à 
partir du Pascal, réaliser les opérations 
suivantes : obtenir un catalogue de disquette 
en DOS 3.3, convertir en Pascal des fichiers 
binaires ou texte DOS 3.3, comparer bit à bit 
deux fichiers ou volumes Pascal, examiner une 
disquette au niveau de l'octet ou même du bit 
et lister un fichier texte Pascal avec 
numérotation automatique de lignes et de 


LinkDisc est réalisé par Link Systems, 1655 
26th Street, Santa Monica (USA) et venu 70 
dollars. 





Publications 


1. La récente collection "Micro-ordinateurs", 


aux Hitions Eyrolles, propose les nouveaux 
titres suivants : 


- Micro-ordinateurs : comment ça marche = R. 
Schomberg - 96 pages - 55 FF 
. Le Basic universel - 
pages - 55 FF 

+ Pascal par l'exemple - J.A. Hernandez = 156 
pages - 55 FF 


R. Schomberg - 128 


Apprendre à programmes en BASIC - cC. 
Delannoy - 272 pages - 80 FF 
= Langage d'un autre type LISP = - C2 


Queinnec - 200 pages - 89 FF 


2. Les 
titre : 


éditions du PSI annoncent un nouveau 


. La découverte de 1'Applesoft 
Frédéric Lévy - 120 pages - 65 FF 


(tome 2) - 


3. Peut-on enfin vous cacher la parution aux 
Editions d'Organisation de l'ouvrage suivant, 
que vous pouvez commander pour 149 francs 


(port compris) aux Æitions MEV ? 


les modèles en 
- Illustrations de 


Comprendre et utiliser 
gestion - Hervé Thiriez 
Piem - 192 pages - 149 FF 


Cet ouvrage offre une présentation 
pragmatique des modèles et de leur 
utilisation; sa compréhension ne pose pas de 
problème pour les personnes ayant le niveau 


Terminale C. 





65 


Pom's n° 4 








Bibliographie 


2 À sp DA 


Manuel de 





BASIC APPLESOFT _ référence 
alphabétique 
Paui MERRY - Hitions MNEMODYNE 


Prix indicatif: 120 F chez SIDEG 


Voici un livre qui pourra faire bonne figure 
dans votre bibliothèque, ou plutôt à côté de 
votre Apple, car il risque de vous servir 


souvent ! D'autant plus souvent qu'il est 
écrit en français. Nul besoin donc d'être 
familiarisé avec la langue de Shakespeare 


pour l'utiliser... 


il s'agit plus d'un répertoire 
livre. Le sous-titre le définit 
fort bien “Définition, 
utilisation et exemples pour les instructions 
et concepts de programmation, éditions de 
textes et traitement de fichiers (DOS)". 


Les différentes instructions de l'Applesoft 
et du DOS y sont classées par ordre 
alphabétique et une ou plusieurs pages est 
consacrée à chacune. On y retrouve, avec une 
présentation très claire, leur syntaxe sous 
forme de diagramme, leur utilisation avec 
conseils, modes d'emploi, restrictions...et 
un petit programme utilisant cette 


A vrai dire, 
que d'un 


d'ailleurs 








instruction. 


Outre les 
sont rassemblés 
reset, moniteur, 
curseur ...). Par exemple, 
erreur dans votre programme, nul besoin de 
fouiller dans le manuel de l'Applesoft ou 
celui du DOS. Cherchez donc à "ERREURS". Tout 
est là le code, les causes possibles, les 
remèdes... 


instructions du Basic et du DOS, 
d'autres mots-clés (erreurs, 
instructions, DOS, 
si vous avez une 


Par contre, des erreurs non référencées 
émaillent le texte j'ai pu en relever 
jusqu'à six dans une seule page! IL est 


regrettable que l'on puisse publier un livre 
sans apparemment l'avoir relu une seule fois. 
Avis aux éditeurs. 


Tout d'abord sceptique quant à l'utilisation 


que je pourrais faire de cet ouvrage, je me 
suis vite aperçu de son utilité et de la 
facilité d'emploi pour retrouver une 
information (facilité dûe essentiellement à 


une présentation exellente). 


C'est dire que je le conseille non seulement 
aux débutants en Applesoft, pour qui il est 
un instrument remarquable, mais également aux 
utilisateurs plus avançés, qui peuvent avoir 
de temps en temps des doutes ou des lacunes. 
Courrez vite chez votre distributeur Apple 
pour le découvrir ! 
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ESPACE ELECTRONIQUE 


ILLEL CENTER PARIS 15°: 143, av. Félix-Faure - 75015 Paris, Tél. 554,97.48, Métro : Balard. 
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APPLE II 


Un des micro-ordinateurs les plus 
fiables de sa génération, Apple II 
est utilisé dans de nombreux 
domaines : gestion, comptabilité, 
enseignement, utilisations scienti- 
fiques et industrielles, applications 


LES MICRO-ORDINATEURS 


APPLE III 


L’Apple II est un système d'ordi- 
nateur de bureau puissant, faisant 
partie d’ensembles étudiés sur me- 
sure et conçus pour résoudre vos 
besoins complexes en application. 
Pour les managers, les financiers. 
les analystes et tous ceux qui ont 
besoin d'organiser des faits et des 
chiffres, il existe le système 
d'Analyse de l'information Ap- 
ple IL 






























Option B : 38.100 F TTC. 

Idem A + Floppy supplémentaire 
Option C : 
41.100 F TTC. 
Idem B + 
Imprimante 
thermique 
graphique. 








domestiques. Option A : 33.330 F TTC visi- te. 
D'une très grande robustesse cale 3 - S.O.S. buissness Basic -  / 
(garantie totale 1 an) AE n’ex- Moniteur 3 12 4 
cède pas 5 kg et sa facilité de trans- 
port renforce encore sa souplesse 
d'utilisation. 
Sonextensibilité est remarquable : 
Apple II étant compatible avec la Pour APPLE II 
plupart des périphériques actuels, | SRE ES LU PHANTOMS FIVE 48 K (DOS 3,3) 260,00 F TTC 
il bénéficie d'un large éventail de 260,00 F TTC 
possibilités. 295,00 F TTC 
380,00 F TTC 
395.00 F TTC 
450,00 F TTC 
CONFIGURATION DE 495,00 F TTC 
DÉVELOPPEMENT 1 764,00 F TTC 
ie 2363,76 E TTC 
(ondes VSD 1764.00 F TTC 
— A 1640.52 F TTC 
Matériel D 07 TASCAL PORFRAN | VISTERM 1375,92 F TTC 
DESR OP PEAN TE 1764.00 F TTC 
Système Plus [Plus IIPlus Il Plus CCA/DMS (Gestion de Fichier) 1 105.44 F TTC 
Mémoire APREE EE 576.24 F TTC 
utilisateur 32K 48 K 48 K 48 K APPLE POST... ..... Rd 352,80 F TTC 
(RAM) " c e APPEL PO 2 1293,60 F TTC 
Micro-programmation Cartes artes arte arte MINI-ASSEMBLEUR APPLE SOFT. 235,20 F TTC 
Unité BASIC BASIC Langage Langage PROGRAMME 
Disk II lou2 1 COMPTABILITÉ GÉNÉRALE (SAARI) 341040 F TTC 
PROGRAMME PAYE (GIPSI) .…......... 258720 F TTC 





BON DE COMMANDE 


Aretourner à : ILLEL Center Informatique : 
service vente par correspondance 
143 avenue Félix Faure 75015 Paris. 











MODE DE RÈGLEMENT CHOISI 

© à la commande paiement comptant 

D ücrédit® à partir de 2000 F. 

Jeverse 20% du montant total de mon achat : RER 
chjoint: Chèque bancaire D C.C.P. [DJ Mandat carte [] 


MConditions de crédit CREG : + Être salariés 
#20/% minimum au comptant, solde arrondi à la centaine supérieure, 
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Je soussigné : Nom 


N° 





Rue 


Prénom _ 








Code postal Ville 





commande ferme etidésire recevoir d'urgence 





z Tél. z 
Quantité Prix total 






Montant net 


Frais’ de port 
Pour envoi postal 


TOTAL A PAYER 















diagonale 














Pour mieux choisir 
“votre” ordinateur 


L'ORDINATEUR 


INDIVIDUEL 


Vous y trouverez : 


L'actualité et les tendances de l'informatique individuelle + des galops et des bancs 

d'essai des principaux matériels + des panoramas et des tests comparatifs le point 

des grandes manifestations internationales + des articles d'initiation + des synthèses 

« des programmes + des interviews “exemplaires” + des conseils + des idées 
° des astuces. 


| L'ORDINATEUR 
INDIVIDUEL 


chez votre marchand de journaux 








41 rue de la Grange aux Belles - 75010 Paris 





